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Előszó helyett 
javaslatok, tanácsok a programozás tanításához, 


a füzet és a programcsomag használatához 
tanároknak : 


- Mint ahogyan az általános- és középiskolai matematikatanításnak 
sem célja, hogy matematikusokat képezzen, a programozást sem azért 
kell(ene) tanítani, hogy — mindenkiből programozó legyen. 
Programozással (programozgatással) kezdődhet. az a tanulási 
folyamat, ami a számítógép — megismeréséhez, a — számítógép 
alkalmazásához vezethet. Természetesen nem csak ez az út járható. 
Én ehhez szeretnék segítséget nyujtani azzal,hogy bemutatom a 
TV-Computer BASIC programozási nyelvét, a TV-Computer 
lehetőségeit. 

- Ne utasításkészletet tanítsunk, hanem számítógépes 
feladatmegoldást. Ennek csak egyik eszköze a BASIC nyelv. 

- A programozás mindig valamilyen feladatmegoldást jelent. Egy-egy 
utasítás, függvény, vagy programozási fogás bemutatása mindig 
kapcsolódjon egy olyan problémához, amelyiknek a megoldásához 
szükség van az új ismeretre. 

- Keressünk a feladatok megoldására több megoldást. A füzetben 
szereplő programok is csak a lehetséges megoldások egyikét 
jelentik. 

- A számítógép "adatokat kér", "kiírja az eredményt", "relációt 
vizsgál", "valahányszor, vagy valameddig ismételten csinál 
valamit", stb. Ezeknek a műveleteknek a BASIC nyelvű, - 
szintaktikailag helyes - megfogalmazása csak gyakorlat kérdése. 
Egy korábbi kész program megtekintése vagy maga a számítógép is 
-azzal, hogy ellenőrzést végez- segitségünkre lehet a feladat 


megfogalmazásában, a program megírásában. Készíttessünk 
feljegyzéseket, szoktassuk tanulóinkat a segédanyagok 
használatához! 


- A füzet anyagának feldolgozása többféleképpen is elképzelhető: 


- A Számítógép kezelése és a Parancsok c. fejezetek 
megismertetnek a számítógép kezelésével és sok olyan 
utasítással - parancsként használva -, amelyeket — később 
alkalmazni tudunk a programok készítésenél. 


- A Programok c. fejezetet bármelyik témakörrel elkezdhetjük, 
és bármelyikkel folytathatjuk. 


- Kiválaszthatunk egy témakört és a — parancsok után 
folytathatjuk a programokkal. Például a 2.2. fejezet után 
következhet a 3.2. fejezet. 


- Minél előbb ültessük a tanulókat a számítógép mellé! Az a 
legjobb, ha rögtön ezzel kezdjük. 


- Adjunk feladatot a tanulóknak és segítsünk nekik abban, hogy 
önállóan, a számítógép segítségére támaszkodva tudjanak dolgozni! 


- Időnként redszerezzük a tanultakat! Ehhez nem szükséges a 
számítógép. 


a a 


- A számítógépes munkát előzze meg a feladat megoldásához 
szükséges ismeretanyag feldolgezása, az algoritmus megfogalmazása. 
- Az algoritmusokat adjuk meg szöveges formában, pontokba szedve, 
és (vagy) folyamatábra segítségével! A füzet korlátozott 
terjedelme miatt csak néhány esetben, példaként mutatom ezt be. 


- Szoktassuk tanulóinkat a tervszerű munkára! Írassunk programot 
papíron is! 


- Adjunk tanulóink kezébe szakkönyveket! Ezt a füzetet se zárjuk 
el előlük. 


A programcsomagról : 


- A füzet "hosszabb" programjai, azok — továbbfejlesztett 
változatai, valamint a programozás tanításához, oktatóprogramok 
írásához felhasználható programok, szubrutinok alkotják a 
programcsomagot. 

A programok nevét a feladatok után adjuk meg. Például: 313D. Ez 
a 3.1.5. fejezet D feladatának a megoldása lesz. 

A füzetben szereplő megoldás  továbbfejlesztett változatainak 
és a feladathoz kapcsolódó programok nevében csak betűk 
szerepelnek. Például:RENDEZ. 

A Mellékletben röviden ismertetjük azokat a programokat, 
amelyek már túllépnek a füzet keretein. Remélem, hogy lesz 
amelyik ötletet, segítséget ad a tehetséggondozáshoz, 
oktatóprogramok " készítéséhez és segít a programozás 
tanításában. A füzetben ott is utalunk ezekre a programokra 
ahol ezek alkalmazása, bemutatása javasolt. 


tanulóknak : 


- Tervezd meg munkádat! Gondold végig, hogy mi a feladatod! Akkor 
ülj a számítógéphez, ha már tudod, hogy mit akarsz csinálni! 


- Gépeld be a kész programokat, és próbáld ki azokat! 


- Próbáld meg önállóan megoldani a feladatot! Miután megírtad a 
programod, hasonlítsd össze a megoldással! 


- Értelmezd a kész programokat! Futtasd le a programcsomag 
programjait! ká 


- Keress más megoldást! 


- Gondold meg, hogy milyen feladatok megoldásához használhatnád 
fel a tanultakat! j 


- Készíts feljegyzéseket! Írd le tapasztalataidat, ötleteidet, 
kérdéseidet! 


- Próbálkozz, kisérletezz! 
Miskolc, 1987. december 


Jó murnikát kíván a Szerző 


1. Számít. kezelése 


1.1. A billentyűzet 


Miután bekapcsoltuk a TV-t és a számítógépet, a képernyőn 
megjelenik egy bejelentkező kép. A gyártó cég és a számítógépünk 
nevét látjuk a képernyőn. Ezek után le kell nyomni egy teszőleges 
billentyűt és elkezdhetjük a munkát. 

A TV és a billentyűzet segítségével teremthetünk kapcsolatot a 
számítógéppel. A billentyűzeten begépelt szöveg megjelenik a 
képernyőn, és ott láthatjuk a számítógép üzeneteit is. 

A képernyőre akármit írhatunk. A számítógép csak akkor próbálja 
meg értelmezni a begépelt szöveget, amikor lenyomjuk a RETURN 
billentyűt. 

Ekkor a következők történhetnek: 
1./ A számítógép nem érti, hogy mit akarunk. Ilyenkor valamilyen 
hibajelzést Ír ki. Próbáljuk ki! Írjuk be hogy 


MENNYI 5-4 

és nyomjuk le a RETURN billentyűt! 

2./ Valamilyen értelmes parancsot adtunk a számítógépnek és a 
számítógép valamit csinál. 

Most gépeljük be azt, hogy 

PRINT 5-4 

és nyomjuk le a RETURN billentyűt! 

A számítógép elvégzi az összeadást. 

3./ A számítógép nem csinál semmit. Legalábbis nem látványosan. 
Nézzük meg, hogy mit gépeltünk be! Ha a sor elején szám volt, 
akkor a gépeljük be azt ,hogy 

LIST 

A LIST parancs után is nyomjuk le a RETURN billentyűt! 


A számítógép kiírja azt, amit begépeltünk. Most már nagybetűkkel. 
A számítógép tehát megőrizte ezt a sort. 


- Milyen ismeretek szükségesek a billentyűzet használatához? 


- A fehér billentyűk lenyomásával  kisbetűket, számjegyeket, 
műveleti- és írásjeleket írhatunk a képernyőre. 


- A SHIFT billentyűt lenyomva kell tartani, ha nagybetűt, vagy 
felső karaktert (például 4 jelet) szeretnénk begépelni. 


- A botkormánnyal mozgathatjuk a kurzort oda, ahová írni 
szeretnénk. 


- A DEL billentyű lenyomásával a kurzortól balra lévő karaktert 
lehet törölni. 


- A SHIFT/DEL (Miközben a SHIFT billentyűt lenyomva tartjuk, 


BE elk 


nyomjuk le a DEL billentyűt!) a kurzortól jobbra törli a 
karaktert. 


- Az INS billentyűvel helyet csinálhatunk új karaktereknek, 
amelyeket be szeretnénk "szúrni" valahová. 4 


- A CTRL/Y törli azt a sort.ahol a kurzor áll. 


Ennyi ismerettel már megpróbálhatjuk a következő — program 
begépelését. A nagybetűk helyett írhatunk kisbetűket is. 
A sorok végén nyomjuk le a RETURN billentyűt! 


129 REM —-—— billentyüzet ——— 

29 CLS:PRINT AT 3,3,"Nyomd le a megfelel 
ö"2PRINT" billentyűt!" 

39 RANDOMIZE: J— jedi R-0Z 

429 KERND(i25)-ár3 

59 FRINT AT Et etblesE EÉ 

69 IF K-127 OR kKk-1453 THEN 40 

79 GET Oz 

89 IF Cs-CHRE(K) THEN 1090 

99 FRINT AT 16,12, "Tévedtél!" :R-Rt1:GOTO 


199 J-J4Fi:PRINT AT 16,15, "Helyes!" 
119 FOR I-i TO 309:NEXT 
i29 FRINT AT 16,1,STKINGEXC(29, 32) 
159 IF J-2Z9g THEN 40 
149 CLSz PRINT AT 12,1,"29-szor sikerült," 
;5R;"—szer nem" 
A programot úgy indíthatjuk el,hogy begépeljük a 
RUN j 
parancsot. (A RETURN billentyű lenyomásáról ne feledkezzünk meg!) 
Ezek után két dolog lehetséges: 


1./ A program "fut", és kéri a karaktereket. 20 jó válasz után 
értékeli teljesítményünket. 


2./ Valamit rosszul gépeltünk be. A hibát ki kell javítani. 

Mit kell ekkor tenni? 
- A hibajelzés után kiírt hibás sorba be kell írni a kimaradt 
karakter(eke)t, vagy törölni kell, ami felesleges ,(A javítás 
után ne feledkezzünk meg a RETURN" billentyű lenyomásáról! ) 
- vagy újból beírjuk az egész sort. 

a./ Állítsuk le a programot futás közben! Mit ír ki a számítógép? 

b./ Jegyezd fel, hogy milyen hibák fordulhatnak elő! 


c./ Mi történik, ha egy utasítássort újból begépelünk? 


1.2. Programok kezelése 
Két paranccsal már az előző fejezetben találkoztunk: 


LIST - kiírja a képernyőre a programot, 


RUN - elindítja a programot. Ez azt jelenti, hogy a 
számítógép elkezdi programban szereplő utasítások végrehajtását. 


Akkor, ha előttünk, már dolgozott valaki a számítógépen, a 


NEW - paranccsal törölhetjük az előző programot. (Előtte 
érdemes megnézni a LIST paranccsal a programot! ) 


Van amikor nem akarjuk a teljes programot törölni. Ilyenkor a 
DELETE 20-50 


paranccsal törölhetünk sorokat. Példánkban a 2909-as sortól a 
59-es sorig töröltük az utasítássorokat. 


a./ Hogyan lehet egy programsort törölni? 


b./ Mit kell tennünk, ha kifelejtettünk egy utasitássort a 
programból? 


c./ Mi történik, ha kiadod a TRACE ON és a RUN parancsokat? 

d./ Program futása alatt, miközben lenyomod a CIRL billentyűt, 
nyomd le az ESC billentyűt is! 

Az előzőekben szó volt arról, hogyan kell begépelni egy programot 
és azt hogyan lehet javítani, módosítani. 


- Mit kell csinálni akkor, ha a programot kazettáról akarjuk 
beolvasni? 


Adjuk ki a 

LOAD 

parancsot, és indítsuk el a lejátszásra állított magnetofont! Arra 
kell ügyelni, hogy a program elején álljunk amikor a beolvasás 
elkezdődik. 

Ha nem sikerült a programot beolvasni, állítsunk a hangerőn és a 
hangszínen, és próbáljuk meg újból a beolvasást. 

e./ Mi történik a LOAD "iskola" parancs hatására? 

Programunkat a 

SAVE "billentyu" 


paranccsal vihetjük ki kazettéra. Mielőtt lenyomnánk a RETURN 
billentyűt, indítsuk el a felvételre állított magnetofont. 


£./ Hogyan ellenőrízhetjük, hogy sikerült-e a felvétel? 


9./ Hogyan olvashatjuk be a "billentyű" névvel ellátott programot? 


2. Parancsok 


2.1. Kiirás a képernyőre 


2.1.1. Számok és karakterláncok 


A. Gépeld be a következő parancsokat és nyomd le a RETURN 
billentyűt! Figyeld meg, hogy mi történik! Mit csinál a 
számitógép? 


PRINT 1987 
FRINT "Miskolc" 


CLS 


Amennyiben helyesen írtuk be a parancsokat, és a RETURN 
billentyű lenyomásakor a kurzor abban a sorban volt amelyikbe a 
parancsot írtuk, akkor 


- az első parancs: kiírja a képernyőre azt, hogy 21987. Ezt a 
számot írtuk a PRINT szó után. 

- a második parancs: kiírja azt a szót, hogy Miskolc. Ezt írtuk 
az idézőjelek közé. 

- a harmadik parancs: törli a képernyőt. 

A PRINT parancs oda írja a parancsban megadott számot, vagy az 
idézőjelek közé írt szöveget, ahol a kurzor áll. A RETURN 
billentyű lenyomásakor a kurzor a következő sor elejére kerül, 
tehát ide történik a kiírás. 


B. Írassuk ki a számjegyeket! Milyen elválasztójeleket használunk? 
Miben különböznek a kiírások? 


PRINT B,1,2,554.,5,657585? 
PRINT O03z31525354555657585797 


FRINT "90125456789" 


. 


A pontosvessző hatására egymás mellé kerülnek az adatok, csak 
egy üres hely marad ki (a pozitív számok esetén kettő, de ebből az 
egyik a pozitív előjelé). 

Vessző esetén az Ll.,9.,17., stb. karakterpozíciótól kezdődik a 
kiírás, ezért a képernyőn egymás alá kerülnek a kiírt eredmények. 
A harmadik parancsban a számjegyeket karakterláncban adtuk meg. A 
kiírás úgy történik, ahogyan azt az idézőjelek közé írtuk. 


a./ Milyen számokat írnak ki a parancsok? 


PRINT —34.56,455.789,—9.012 
PRINT 23.4E-—-Z,1E19,—9.OD12EZ2,6.67EZ23 
b./ Írassuk ki a -6-nál nagyobb negatív egész számokat! Hány 


üres hely lesz a számok között, ha a számokat pontosvesszővel 
választjuk el egymástól a parancsban? 


bene EST 


c./ Írassuk ki ábécé sorrendben a szén gr hle pé ejj A magánhangzók 
között legyen egy szóköz karakter(üres hely)! 


d./ Fogalmazd meg, hogy a PRINT parancs mit jelent a számítógép 
számára! 


c. Gépeld be a következő parancsokat és figyeld meg, hogy mi 
Történik! Mi a szerepe az első két számnak? 


PRINT AT 92,15,"BASIC" 


PRINT AT 9,29,1987 


A PRINT AT paranccsal bárhová írhatunk a képernyőre. A 
parancsszó utáni első számmal a képernyő sorát, a másodikkal a 
soron belül a karakter helyét adjuk meg. A kurzor ezzel a két 
számmal megadott helyre kerül és itt kezdődik a kiírás. 


2.1.2. Változók 
A. Adjunk értéket a VÁROS$, TÁVOLSÁG és EGYSÉGÉ$ változóknak! 
A RETURN billentyű lenyomásáról ne feledkezz meg! 


VAROSÍIZ" "Budapest" 
TAVOLSAG- 180 


EGYSÉGSZ" km" 


A parancsok olvasása: 

- "A VÁROS karakterlánc-változó legyen egyenlő Budapest-tel!" 

- "A TÁVOLSÁG változó értéke legyen 180!" 

- "Legyen km karakterlánc az EGYSÉGS (dollár) 
karakterlánc-változó értéke! " 

A parancs végrehajtását úgy ellenőrizhetjük, hogy kiíratjuk a 
VÁROS§ , TÁVOLSÁG és az EGYSÉG$ változók értékeit. 


FRINT VAROSZZ;TAVOLSAG; EGYSÉGE 


a./ Írjuk be kisbetűvel is a parancsokat! 
b./ Hol különbözteti meg a számítógép a kis-és nagybetűt? 


B. Nézzük meg mi lesz az értéke a DARAB numerikus- és a GYÜMÜLCSS 
karakterlánc-változónak? 


PRINT DARAB;GYÜMÖLCSZE;" FA" 


PRINT DARAB, GYÜMÖLCSE," FA" 


A két változónak korábban nem adtunk értékeket, ezért 8 ill. 
üres karakter" lesz az értékük. 


zta különbözteti meg a numerikus-változót a karakterlánc-válto- 
z 2 


- 10 - 


d./ Milyen neveket adhatunk a változóknak? Milyen karakter lehet 
az első karakter? Milyen hosszú lehet egy változó neve? Próbáljuk 
ki különböző változónevekkel! 

C. Gépeljük be a következő parancsokat! 

ELS 

Asz"Basic" 

SOR-10 

PRINT AT SOR, 15,A£$ 

Vigyük vissza a kurzort a harmadik parancsra és írjunk 1-gyel 

nagyobb számot az egyenlőség jobb oldalára! Miután beírtuk a 
számot, nyomjuk le kétszer a RETURN billentyűt! Ezzel módosítottuk 
a SOR változó értékét, és ismét végrehajtattuk a számítógéppel a 
PRINT AT parancsot. A BASIC szót újból kiírja, de már az eggyel 
nagyobb sorszámú sorba, az előző alá. Ismételjük meg az előzőeket! 

e./ Írássuk ki a BASIC szót többször egymás mellé! 

f./ Mi történik a 

GRAPHICS 2 
GRAPHICS 4 


GRAPHICS 16 


parancsok hatására? Milyen értékeket adhatunk az egyes GRAPHICS 
parancsok után, a PRINT AT utasításban a SOR és — OSZLOP 
változóknak? Kisérletezz! 


9./ Mi az azonosság és mi a különbség a CLS és a GRAPHICS 
parancsok között? aj 


h./ Fogalmazd meg szavakkal az értékadó parancs jelentését! 
D. Adjunk meg egyszerre több parancsot! 
SOR:510:0SZLOP—12 
CLSzPRINT AT SOR, OSZLOP, A£ 
A parancsok közé kettőspontot kell tenni! 


i./ Írasd ki bekeretezve, a képernyő közepére a MAGYARORSZAG 
szót! 


2 Ji s 
2.2. Számolás 
2.2.1. Számok 


A. Adott egy háromszög. Mérjük le a 
Szükséges adatokat és számítsuk ki a b a 
náromszög kerületét és területét! 

A mérés eredménye: 

az2,B cm;b-2,3 cm ;c53,1 cm;m-2,2 cm. c 


Gépeljük be a következő parancsokat és minden parancs után 
nyomjuk le a RETURN billentyűt! 


PRINT 2.842.5r5.1 
FRINT 35.1982.2/2 


A számítógép a PRINT parancsra kiszámítja és kiírja a képernyőre 
az eredményt. Miután tudjuk azt, hogy a háromszög kerületét és 
területét hogyan kell kiszámítani, nem nehéz kitalálni, hogy a 
parancsokban milyen műveleteket jelöltünk a 4 3 és / 
karakterekkel. 

A kivonást az oldalhosszak különbségének kiszámításával mutatjuk 
be: 


FRINT 3.1-2.B8,5.1—2.S5.,2.8—2.S 
PRINT S.1-2.855.1-—2.552.8—2.S 


a./ Milyen karakterekkel jelöljük a négy aritmetikai 
alapműveletet? 


b./ Hogyan írjuk a tizedes számokat? 


c./ Milyen karakterekkel választottuk el a PRINT parancsban az 
aritmetikai kifejezéseket? 


Ugyanúgy, ahogyan papíron vagy fejben számolunk, a számítógép is 
két számot ad össze, von ki egymásból, szoroz ill. oszt el 
egymással. Nézzük, hogyan történik a — parancsokban szereplő 
kifejezések értékeinek kiszámítása! 


FRINT Sá245itó 
FRINT 309-4224511r65 
PRINT 109.§8-2-—-1.54125 


PRINT 1248/645/25 


- Az első parancs végrehajtása: az első számot szorozd a második 
számmal, az így kapott értéket szorozd a harmadik számmal, és az 
így kapott értéket szorozd a negyedik számmal. 

- Második parancs: az első számhoz add hozzá a második számot, az 
Így kapott értékhez a harmadik számot, é.í.t. 

- A harmadik és negyedik parancs végrehajtása csak annyiban tér 
el az első kettőtől, hogy itt már kivonás és osztás is szerepel a 
kifejezésben. Egy-egy kifejezésben azonos sorrendiségű műveletek 
szerepelnek. Ezek végrehajtása az előzőek szerint történik. 
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Különböző sorrendiségű műveletek esetén először a szorzás-osztás, 
majd az összeadás-kivonás végrehajtására kerül sor. 


PRINT S43434172347207 

PRINT 34313—7282672 

PRINT 343/5-2/2472 

PRINT 3/383—247242 
Amennyiben hatványozás is szerepel a kifejezésben, akkor előszőr 
ezt végzi el a számítógép, ezután a szorzást-osztást (balról - 
jobbra haladva), végül az összeadást - kivonást (balról - jobbra 


haladva). Mielőtt kiszámoltatnánk valamelyik kifejezés értékét, 
számoljuk ki papíron is! 


FRINT 2348-46435—25 
PRINT 372-44772 


PRINT 245721r472/52 


2.202. Változók 


A. Határozzuk meg az ABC derékszögű vs c 
háromszög kerületét és területét! 
Mért adatok: 


az2,7 cm;b:3,6 cm;cz4,5 cm. ma 
A kerület és terület számértékének meghatározása: 


Az2.7:B-3.6:C5-4.5 
FRINT AHFBIC,ARB/Z 


Először értékeket adunk a változóknak. Az értékadó utasítások 
hatására az A,B és C változók felveszik az — oldalhosszak 
számértékét. A PRINT parancsban ezeken a változókon jelöljük ki a 
műveleteket. 


a./ Helyes eredményt kapunk, ha megváltoztatjuk A,B vagy C 
értékét? 


B. Számítsuk ki az r-12,53 cm sugarú kör kerületét és területét! 
EGYSÉGE-" cm" 
Rzsz12.5 
PRINT "A kör kerületem"; ZítrtFI;EGYSÉGI 


PRINT "A kör területesm "ő; RSZtPI;EGYSÉGETSZ" 


Most a kiírandó szöveg egy részét is karakterlánc-változókban 
adtuk meg. A pi változónak a számítógép ad értéket. Próbáljuk ki! 


ESRÉG (s. AES 
b./ Milyen neveket adhatunk a változóknak? 


c./ Határozzuk meg az a-12,5 dm és b-157,5 cm oldalhosszúságú 
téglalap kerületét és területét! 


2.2.3. Függvények 


A. Számítsuk ki  pitagorasz-tétel segítségével a  2.2.2./A 
feladatban megadott derékszögű háromszög átfogóját a két befogó 
ismeretében! Hasonlítsuk össze a mért értékkel! 


PRINT SAOAR(2.772-45.672) 


Az SOR betűhármassal a négyzetgyök függvényt jelöljük. A függvény 
a betűhármast követő zárójelben megadott kifejezés értékének a 
négyzetgyökét határozza meg. 


a./ X milyen értékeinél vannak — értelmezve a megadott 
négyzetgyökfüggvények? 


PRINT SOR(X) 
PRINT SOR(X-2) 
PRINT SER(2-—X) 
PRINT SOR (2—X72) 


PRINT SOR ((2-—-X)/(X32)) 


B. Az X,Y és Z változók értékeinek változtatásával határozzuk meg, 
hogy mit csinál a három függvény! 


PRINT ABS (X) 
PRINT INT(Y) 
FRINT SGNC(Z) 


Az ABS függvény az X változó értékének abszolutértékét, az INT 
függvény az Y változó értékénél nem nagyobb egészszámok közül a 
legnagyobb egész számot adja, az SGN függvény a Z változó előjelét 
jelzi -1,8 vagy 1 értékkel. 

Az INT függvényről egy kicsit szemléletesebben: ha ábrázoljuk a 
számegyenesen Y érték, és Y értéke egész, akkor az INT függvény 
értéke Y. Ha Y tizedesszám, akkor a tőle balra eső legközelebbi 
egész szám lesz az INT függvény értéke. 


9 XN VON EN 9) 
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b./ Határozzuk meg 12,87 és 6,32 egész ill. egytizedes pontosságú 
kerekített értékeit! 


c./ Határozzuk meg az xl és x2 változók értékeinek távolságát a 
számegyenesen! 


z Já 
2.3. Grafika 


2.3.1. Pontok, szakaszok 


A. — Töröljük a képernyőt a CLS paranccsal, és gépeljük be a 
következő parancsokat! 


PLOT 499,550 
PLOT 5300 v,400; 8009, 600 


A PLOT parancs után írt számpár tagjai a képernyő pontjainak 
koordinátáit jelentik. Egy számpárral egy pont jeleníthető meg a 
képernyőn. Az első számmal a vizszintes, a másodikkal a függőleges 
koordinátát adjuk meg. 

Szakaszt úgy rajzolunk, hogy a szakasz végpontjainak koordinátái 
közé pontosvesszőt teszünk. 

A pontokat jelentő számpárok elé vagy mögé vesszőt vagy 
pontosvesszőt írhatunk. A számpár tagjai közé viszont mindig 
vesszőt kell tenni. 

- vessző: "felemeljük a ceruzát" 
- pontosvessző: "letesszük a ceruzát!" 

Nézzünk néhány példát: 


PLOT 3090, 4099; 509 , 699 
PLOT ;52909,700 
PLOT S550,750; 


- első parancs: kirajzoljuk C306,44Ó) koordinátájú pontot, a 
"ceruza" a papíron marad és elmegyünk a (5Ó4,698) koordinátájú 
pontig. Röviden: rajzolunk egy szakaszt, amelynek a végpontjai a 
(300, 460) és az (569. 60) pontok. 
- második parancs: "letesszük a ceruzát és elmegyünk a (20g,704) 
pontig. Röviden: húzunk egy szakaszt a megadott pontig. 

- harmadik parancs: kijelöljük a (336,750) pontet és letesszük a 
ceruzát. 

- negyedik parancs: rajzolunk egy háromszöget. 
A harmadik parancs után a negyedik parancsban már felesieges volt 
az első pont koordinátáját megadni, mivel a harmadik parancsoan 
ezt a pontot már kijelöltük, és a "ceruzát" is letettük (a végére 
írt ;5-vel). 


a./ Nézd meg, hogy mi történik, ha a GRAPHICS 2, vagy a 
GRAPHICS 16 parancs után gépeled be az előző parancsokat! 

b./ Keretezd be a képernyőt! 

c./ Bekapcsolás után mit csinál PLOT ;400,6ÓÓ parancs? 


B.  Rajzoljunk egy derékszögű háromszöget, és fessük be! 


A "ceruzát"! a háromszög belsejébe visszük, és kiadjuk a PAINT 
parancsot. 


PLOT 2090 .,53D00; 7090 , 500 ; 298 , 6290 ; 299, 300 
FLOT 2Z50,5350,PAINT 


d./ Mi történik ha a "ceruza" a háromszögön kívül van, amikor a 
PAINT parancs végrehajtására kerül sor? 


Sb LE 


c. Rajzoljunk szaggatott vonalakkal egy szakaszt! 


SET STYLE 53 
PLOT 2508,5S5SB;§8So0.,ezo 


A SET STYLE utasításban szereplő számmal a  kirajzolandó 
vonaltipust határozzuk meg. 


e./ Hány különböző vonaltipussal lehet rajzolni? 
f./ Mi a különbség a CLS és a GRAPHICS utasítások között? 
g./ Mi történik a PLOT 400,S5PÓ:PRINTHG , "Basic" parancsok hatására? 


2.4 Karakterláncok 
2.4.1. Karakterlánc-műveletek 


A. Az a$ karakterlánc-változónak értéket adunk és kiíratjuk a 
karakterlánc 


- 1Ó. karakterét, 

- 5. karakterétől a karakterlánc 13. karakteréig a karaktereket, 
- 3. karakterétől kezdődően a karaktereket, 

- 15. karakteréig a karaktereket. 


a$-"abcdefghi jklmnopagr" 
print asC(10) 

print a$(Ss513) 

print as(3s:) 

print a$(C(ti5) 


a./ Milyen hosszú lehet egy karakterlánc? 


3. Az a$ karakterlánc karaktereit "összefűzzük" és kapunk egy 
szót. Ez lesz b$ értéke. 
A "láncolás" vagy "összefűzés" jele: £ ("és" jel). 


bszas(4:S)2Zasrc(2)2ar(18)2far(S)2asxzcs)2Rarc(5)2 
a$(1i4) 5; 
print bá 


C. Mi történik, ha az értékadó utasítás bal oldalán jelöljük ki a 


karakterlánc egy szeletét? 
a$z"abcdefgohijk" 
a$(5)s"ö "xyz" 
print a$ 


a$z"abcdefghi jk" 
a£(3:8)—"kyz" 
print az 


a$-"abcdefghijk" 
a(2:)sö"xkyz" 
print ag 


a$sz"abcdefghi jk" 
a$(:5)s"xyz" 
print a$ 


- l6 - 


a$(3) - a harmadik karakter, 

a$(3:B) - a 3. és 8. karakter közötti szelet 

a$(2:) - a 2. karaktertől kezdődő szelet, 

a$(:5) - az 5. karakterig tartó szelet helyére kerül az 


egyenlőség jobb oldalán álló karakterlánc. 


2.4.2. Karakterlánc-függvények 


A. A LEN függvény a karakterlánc hosszát adja meg. Nézzük meg, 
hogy hány karakterből áll az a$ karakterlánc! 


print len(a$g) 


8. Minden karakterhez tartozik egy szám. Ez a szám a karakter 
kódja. Azt, hogy az egyes karaktereknek mi a kódja, megnézhet jük a 
Mellékletben, de meghatározhatjuk az 080 függvénnyel is. 


print ord(ag$) 
print ord("a"3 
print ord("alma") 
Mindhárom parancs ugyanazt az eredményt adja, mivel 


karakterláncok első karektere az "a! karakter. Az ORD függvény 
karakterlánc első karakterének kódját adja meg. 
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C. Most a kódból állítjuk elő a karaktert a CHR$ függvénnyel. A 
két parancs ugyanazt az eredményt adja. 


print chr$(65) ;crhs(66)zchrs (67) 


print "A";"B";"C" 


D. Töröljük ki a képernyö 10 sorát a képernyő bal szélétől a 


képernyő közepéig! 


A STRING$ függvénnyel előállítunk 16 db szóköz karaktert és azt 
kiíratjuk a 10.sor elejére. 


print at 191, ,string$(16," ") 

print at 19,1,string$(i1i6,52) 
a./ Mit csinál a következő parancs? 

print at 1,1,string$(24,25)y 


E. Két számot akarunk összeadni, amiket karakterláncokként adtunk 
meg. Mi a teendő? 


A karakterláncokat a VAL függvénnyel át kell alakítani numerikus 
adatokká, és ezekkel számolunk. 


k$z"1987":y$z"12" 


print val(x$)itval(ys) 


s 47 a 


b./ Mi lesz a VAL függvény értéke akkor, ha a karakterláncban nem 
csak számjegy karakterek szerepelnek? 


print val("12A3") 
print val("ií7e5") 
print val("12345") 
print val("—123") 


F. Határozzuk meg, hogy 2 tizenhatodik hatványa hány számjegyből 
áll! 


Kiszámoljuk a hatványt, és átalakítjuk karakterlánccá az STR$ 
függvénnyel. Ennek hosszát a LEN függvénnyel határozzuk meg. 

A feladat megoldható egyetlen paranccsal is, ha a függvényeket 
egymásba ágyazzuk. 


xz2716 
nizstrf$(x) 
print ord("alma") 
print len(strs(25716)) 
c./ Milyen hosszú az str$(5-8B) karakterlánc? 


d./ Melyik parancs ad nagyobb értéket? 
print len(str3(2e4)) 


print len(str3(727e€724)) 


2.4.5. Karakterek definiálása 
A. Írassuk ki a képernyőre a görög ábécé első betűjét, az alfát! 


A 0128-as kódszámtól kezdődően új karakterek adhatók meg a 
SET CHARACTER paranccsal. A karakterek egy 10 sorból, soronként 8 
pontból álló téglalap pontjaiból alakíthatók ki. 

Nézzük az alfa betű tervezésének lépéseit! 


BENE 


32-16-33 

648 

64-48 

6448B 

MÜ Zn Sá 


SET CHARACTER 129,90,2,4,4,I5s24166-B,641B,64t 
8,64-8,6453241644-42,0 


SET CHARACTER 129,9,2,4,4,56,72,72,72,118, 
2 


éz 


A sorokat egy nyolc számjegyből álló kettes számrendszerbeli 
számnak tekintjük. Amelyik pontnak világítania kell, oda 1-et, a 
többi helyre 0-t írunk. 5 

Az így kapott számokat át kell alakítani a tizes számrendcszerbe. 
Ezek a számok szerepelnek a SET CHARACTER parancsban. 

Az é billentyű lenyomására, vagy a PRINT CHR$(129) parancs 
hatására az alfa betű megjelenik a képernyőn. 


a./ Melyik billentyű lenyomásával lehét kiíratni a 168 ill. a 177 
kódszámú karaktert? 


2:5. Színek 


A./ Nézzük meg, hogy milyen színeket ismer a számítógépünk! 


Változtassuk a SET BORDER parancsban a számot! 


Ez a parancs a keretet színezi be, a megadott kódszámú színnel. A 
kódszámok és szinek táblázatát a Mellékletben megtaláljuk. 


SET BORDER 21 


a./ Miben különbözik a SET BORDER 29 és a SET BORDER 84 parancs? 


B. Vizsgáljuk meg, hogy a GRAPHICS 16 parancs után, azaz a 16 
szín( képernyőn milyen színeket használhatunk? 


GRAFHICS 16 

SET FAFER 10:SET INK. 15 
PRINT AT 14,15,"BASIC" 
FLOT 450,4909;6109,4090 


Változtassuk a SET INK és a SET PAPER parancsban a színek 
sorszámait. A sorszámokhoz tartozó színeket a Mellékletben 
megadjuk. (A színek sorszáma más lesz, mint a kódszámuk.) 


tt. Hogyan tudjuk a négyszínű képernyőn, azaz a GRAPHICS 4 
parancs után megoldani az előző feladatot? 


A SET PALETTE parancsban felsoroljuk azoknak a színeknek a 
kódszámait, amelyeket használni szeretnénk. A SET PAPER és a 
SET INK utasításban 8,1,2 vagy 53 értékekkel adhatjuk meg, hogy 
hányadik színt választjuk a "papir" ill. a "ceruza! színének. 


GRAFHICS 4 

SET PALETTE 0,89,68,85 
SET PAPER Z2:SET INK 3 
PRINT AT 14,15,"BASIC" 
PLOT 450,400;619,400 


b./ Hogyan kell megadni a GRAPHICS 2 parancs, azaz a kétszínű 
képersyő esetén a színeket. 


c./ Hogyan lehet átszínezni a teljes képernyőt? 


dezZ Fessünk be egy zöld alapra, fekete vonalakkal rajzolt 
háromszöget pirosra! 


a 0 is 


2.6. Hangok 


Hangkeltéshez a hang magasságát, a hangerőt és a hang időtartamát 
kell megadni. 
A SOUND szó után a 


PITCH - a hangmagasság, 
DURATION - a időtartam, 
VOLUME  -a hangerő megadására szolgál. 
Próbáljuk ki a következő parancsokat, és értelmezzük azokat! 


sound volume 15 
sound duration 1909 
sound pitch 3349 


Első parancs: a legnagyobb hangerővel 1 másodpercig szól a középső 
C hang. 


Második parancs: 2 másodpercig szól a középső C hang. 


Harmadik parancs: közepes hangerővel 1 másodpercig szól a középső 
C hang. 


Az előzőekből megállapíthatjuk, hogy alaphelyzetben egy közepes 
(7-es) erősségű, 2 másodperces, középső C hangra van beállítva a 
hanggenerátor. Ez a hang szól ha csak a SOUND parancsot adjuk ki. 


sound volume 15, ,pitch 499090 


sound volume 15;pitch 40990 


Első parancs: egy magas hangot hallunk a legnagyobb hangerővel. 


Második parancs: a C€ és a magas hang 1-1 másodpercig szól. Amikor 
vesszőt használunk az elválasztáshoz, akkor csak a paraméter 
változik. Pontosvesszőnél megszólal az alapállapotban adott € hang 
ÍS 

sound pitch 4999,volume 1 ,duration 19 


sound pitch 4999,volume 1, ,duration 193;dura 
tion 199, pitch 3349 i 


Első parancs: rövid ideig halkan egy magas hangot hallunk. 


Második parancs: az előző hang után 2 másodpercig hallható a €C 
hang. A pontosvessző után kezdődik a másik hang. 


sound volume 3.,duration 390,pitch SZ49:pitc 
h 3431spitch S503zpitch SSSZzpitch 4095;pi 
tech 3578: pitéh S6ő5ZIpitech 5701 


Ez a középső skála az egész hangokkal. A hangmagassághoz tartozó 
paramétereket a 3.6. fejezetben találjuk meg. 
A SOUND PITCH 4995 paranccsal szünetet adhatunk meg. 


Sal 4: ES 
3. Programok 
3.1. Kiírás a képernyőre 


3.1.1. Változók 
A. Írjuk ki a képernyő közepére azt, hogy Miskolc-1987! 


Parancsokkal a megoldás: 


9oraphics 4 

SOR- 12: OSZLOP-109 
szövegsző7Miskolc —" 

print at sor, Oszlop Szövegti 1987 


Írjunk sorszámokat a parancsok elé! A RETURN billentyű 
lenyomásakor azt tapasztaljuk hogy, a parancsokat nem hajtja végre 
a számítógép. A számítógép tárolja a sorszámokkal kezdődő sorokat. 


19 graphics 4 

29 sorziZ2:oszlop:10 
39 szövegíizőMiskolc — 
39 print at sor, oszlop, ,szövegs; 1987 


Arról, hogy mi került a számítógépbe, úgy győződhetünk meg, ha 
kiadjuk a LIST parancsot. Amennyiben sikerült a gépelés, akkor a 
következőket látjuk: 


19 GRAFHICS 4 

29 SOR-12:OSZLOF-10 

39 SZÖVEGSZz"Miskolc —" 

40 PRINT AT SOR, OSZLOF , SZÖVEGS; 1987 


Ez egy program. Minden program utasítások sorozata. Eddig 
parancsként használtuk a programban szereplő utasításokat. 

A parancsokat a számítógép azonnal végrehajtja, amint lenyomjuk a 
RETURN billentyűt. 

A program, vagyis a programban szereplő utasítások végrehajtására 
csak akkor kerül sor, ha kiadjuk a RUN parancsot. 

Indítsuk el a programot a RUN paranccsal! 


Programunk a következő utasításokból áll: 


1080-es sor: 
A képernyőt töröljük, és közepes finomságúra állítjuk. 


2090-as sor: 
A SOR és OSZLOP numerikus változóknak értékeket adunk. Ebben a 
sorban két utasítás van, amelyeket kettőspont választ el. 


3808-as sor: 
A SZÖVEG$ karakterlánc változó értéke a Miskolc szó lesz. 


48-es sor: 
A képernyő 12. sorának 18. karakterhelyétől kezdődően kiírja a 
SZÖVEG$ változó értékét és az 1987 számot. A SOR és OSZLOP 
változók értékétől függ, hogy hová történik a kiírás. Azt, hogy 
mit írjon ki, utána adjuk meg. 


a./ Próbáld ki a GRAPHICS 2 és a GRAPHICS 16 utasításokkal is a 


SE az 
programot! Írd felül a 10-es sort! 
b./ változtasd meg a SOR és OSZLOP változók értékeit úgy, hogy a 
kiírás a GRAPHICS 2 és a GRAPHICS 16 utasítások használatakor is a 
képernyő közepére kerüljön! 
c./ Írasd ki a nevedet! 
d./ Hány sor és soronként hány karakter fér el a képernyőn? 
e./ Milyen neveket adhatunk a változóknak? 


f./ Miért sorszámoztuk tízesével az utasítássorokat? 


. Hogyan lehet a program módosítása nélkül értéket adni a 
31 tozóknak? 


Erre szolgál az INPUT utasítás. Írjuk felül, ill. "szúrjunk be" 
újabb utasítássorokat az előző programba! 


19 CLS:PRINT "Képernyö(2,4 vagy 16)"; 
29 INFUT K 

S9 PRINT "Szöveg"3:3:INPUT C£ 

40 FRINT "sor, oszlop"; 

59 INFPFUT SOR, OSZLOP 

69 GRAFHICS K 

70 PRINT AT SOR, OSZLOP , 03 


A képernyő törlése, és az útmutató szöveg kiírása után a program 
először a K változó értékét kéri. Ezt egy kérdőjel kiírásával 
jelzi. A lehetséges értékek közül valamelyiket beírjuk és 
lenyomjuk a RETURN billentyűt. 

Ezek után azt a szöveget kell begépelni amit ki akarunk Íratni. A 
szöveg beírása után is le kell nyomni a RETURN billentyűt. 

A következő INPUT utasítás a SOR és az OSZLOP változók értékeit 
kéri. A két adat közé vesszőt kell tenni. Az adatok bevitele, most 
is a RETURN billentyű lenyomására fejeződik be. 


9./ Milyen értékeket vehetnek fel a K, a SOR és az OSZLOP 
változók? 


h./ Aláhúzással írasd ki a szöveget! 
C. Oldjuk meg az előző feladatot az INPUT PROMPT utasítással is! 
19 CLS 
29 INPFUT PROMPT"Képernyö(l(2,4 vagy 16)" ":K 
3S9 INPUT PROMPT"Szöveg":0£ 
49 INPUT PROMPT" sor, oszlop": SOR, OSZLOF 


69 GRAFHICS K 
709 PRINT AT SOR, OSZLOP , 03 


Amint látjuk a PRINT utasítások elmaradtak. A szöveget az 
INPUT PROMPT utasítás írja ki. 


i./ Hol használjuk a kettőspont karaktert? 
j./ Hasonlítsd össze az INPUT és az INPUT PROMPT utasításokat! 
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3.1.2. Vizsgálat 


A. A kiírás kerüljön a képernyő közepére. Függetlenül attól, hogy 
milyen képernyőt használunk t!. 
A program neve: 312A 


5 CLS f 

19 INPUT PROMPT "Képernyö(l(zZvagyávagyio) " 
:K 

12 SOR:12 

15 IF K-Z THEN OSZLOF-Z2ZS 

17 IF Kz4 THEN OSZLOF-? 

22 IF Kz16 THEN OSZLOP-53 

25 GRAFHICS K ; 

39 SZOVEGEszZ"Miskolc" 

42 PRINT AT SOR, OSZLOP, SZOVEG3; 1987 


A sorok száma mindhárom betűméretnél 24, ezért csak az OSZLOP 
változó értéke függ K értékétől. Az IF utasításokkal 
megvizsgáljuk, hogy K változónak milyen értéket adtunk. Ennek 
megfelelően állítjuk be az OSZLOP változó értékét. 

Ha az IF utasításban szereplő reláció értéke "igaz", akkor a 
számítógép végrehajtja a THEN után álló utasításokat, majd a 
következő utasítássorral folytatódik a program végrehajtása. 
Amennyiben a reláció értéke "hamis" akkor a következő 
utasítássorral folytatódik a program. 


B.  Javitsunk az előző programon! Ellenőrizzük K értékét! Akkor, 
ha K értéke nem megfelelő, a program kérje újból! 
A program neve: 3128 


A megoldásban azt használjuk ki, hogy ha a relációk közül 
bármelyik is "igaz", akkor több vizsgálatra nincs szükség. El 
lehet ugrani 25-ös sorra, és kezdődhet a kiírás. 

Amennyiben egyik reláció sem teljesedik, vissza kell menni a 
18-es sorra. 


s ELS 
8 INFUT PROMPT"Név: ":NÉV$ . 
19 INFUT FPROMFT "képernyö(2Zvagyávagyió) " 


12 SOR512 8 
15 IF Kk-2 THEN KÖZÉP-SZ:GOTO 25 
17 IF K-4 THEN KöZéP-1i16:GOTO 25 
29 IF K-16 THEN KöÖZÉP-B:GOTO 25 
22 GOTO 10 

25 GRAPHICS K 

39 OSZLOP:5SKÖZÉP-LEN(NÉVI) /2 

39 PRINT AT SOR, OSZLOP , NÉVS 


a./ Mi az összefüggés a színek száma és a betűk mérete között! 
b./ Mi a jelentése a GOTO utasításnak ? 
c./ Oldd meg az előző feladatot GOTO utasítás nélkül! 
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d./ Milyen relációjeleket ismersz? 
e./ Mi a jelentése a LEN függvénynek? Itt mi a szerepe? 


C. Írjunk programot, amivel karakterekből ábrát rajzolhatunk a 


képernyőre! 
A programok neve: 312C,RAJZKAR 


A GET A$ utasítás egyetlen karaktert olvas be a billentyű- 
zetről. Azt, amelyik billentyűt lenyomtuk. 

Kiválasztunk négy karaktert, amivel a mozgás irányát megadjuk. 
Legyenek ezek az L,F,B és J karakterek. Azt kell megvizsgálnunk, 
hogy melyik billentyűt nyomtuk le, és ennek megfelelően kell 
változtatnunk a kiírás helyét. 

A szóköz billentyűvel azt adhatjuk meg, hogy rajzolni, vagy 
törölni akarunk-e. 


S SET CHARACTER 128,255,255.,255,255,255 
, 255 ,2595 5, 255 , 2559, 255 
19 GRAFHICS 2 
29 1-172:J:-S0:T-1 


49 IF A4-"j"7 THEN J—J4t1 
50 IF A3-"b" THEN J-J-—-1 


69 IF A3z-—-71"7 THEN I-I-41 

70 IF A3-—-"f" THEN I-—I-1 

890 IF Asz" " THEN T5-T 

99 IF T-1i THEN FRINT AT I,J,CHR3(128) 
10m IF z-1i THEN PRINT AT I,J," "; 


119 GOTO DB 


f./ Hogyan működik a GET A$ utasítás? 

9./ Mi a szerepe a T változónak? 

h./ Mi a CHR$ függvény jelentése? 

i., Mi történik, ha a X billentyűt nyomjuk 1e? 
j-/ Mit tudsz a SET CHARACTER utasításról? 

D 


. . Készítsünk játékprogramot az előző programból! 
Programok neve: 312D,UTKOZES 


A botkormány mozgatásával úgy kell irányítani a kiírást, hogy az 
ne menjen le a képernyőről. 
Amikor a program leáll, írassuk ki a PONT változó értékét. Értéke 
a "befutott! helyek számát adja. 


5. SET CHARACTER 128,255,255,259,259992595 
,.255,2599,29595,25952959 

19 GRAFHICS 2 

29 1-17Z:J:55S0:T-1 

30 W3-INKEYsS:IF Wá-xr"" THEN As3z-Wz 

49 IF A3Z-CHRSZC(4) THEN J-J-4i 

590 IF ASZZCHRKIÉ(19) THEN J-J—1i 

69 IF ASZZCHRE(Z4) THEN I-I-1 

79 IF ASZZCHRE(5S) THEN I-I-1 


82 IF A£z-" " THEN T--T 
99 IF Tzsi THEN FRINT AT I,J,CHRSH(128) 
199 IF T-—1i1 THEN FRINT AT I,J,"7 0"; 


195 PONT-PONT--1 
119 GOTO 30 


B / BEEE 


k./ A program műkődését akkor érted meg, ha válaszolni tudsz a 
következő kérdésekre: 
1./ Mi a különbség a GET utasítás és az INKEY$ függvény között? 
2./ Mi az az "üres karakter" és hogyan jelöljük? 
3./ Mi a CHR$ függvény jelentése? 
1./ Egészítsük ki a programot! Amikor lefutottunk a képernyőről 
akkor a program írja ki a PONT változó értékét! 
3.13. Ciklús 


Ms Írassuk ki a Borsod szót egymás alá, amennyiszer csak lehet! 


24 sor van, tehát 24-szer kell ismételten végrehajtani a 
programnak a PRINT utasítást, - amivel a kiírás történik - és 
megoldottuk a problémát. Próbáljuk ki! 

19 CLS 

29 I-1 

39 PRINT I, Borsod" 

49 I-I-1 


59 IF IC-24 THEN 50 


A programban egy ciklust állítottunk elő, 
amelyik 24-szer ismétli a kiírást. Az I 
változó értékét — minden kiírás után 
1-el növeljük. Ezzel számláljuk, hogy 
hányadik kiírásnál tartunk. 

Az IF utasítással azt vizsgáljuk, hogy I 
értéke nem lépi-e túl a megadott határt. 

Jobb oldalt a program folyamatábrája. 


a./ Oldd meg, hogy minden sorban látható 
legyen a kiírás! 
b./ Kezdjük a kiírást a legalsó sorban! 


c./ Töröljük a kiírás után az előző sort! 

d./ Írasd ki egymás mellé a nevedet! jú 

B. Oldjuk meg az előző feladatot a  FOR/NEXT  ciklusképző 
utasítással is! 


19 CLS 

29 FOR I-1 TO 24 
50 PRINT I, "Borsod" 
4D NEXT I 


A FOR és a NEXT utasítások közé írt utasítások végrehajtása 
ismétlődik 24-szer. Az I értéke ismételten növekszik 1-gyel, és 
Így jutunk el 1-től 24-ig. 

Akkor, ha a lépésköz nem 1, meg kell adnunk az értékét a FOR 
utasításban a STEP szó után. 


st as 


19 CLS 
29 FOR I:24 TO i STEP —-i 


39 PRINT AT I,i6,I;"Borsod"; 
49 NEXT I 
sg GÉT 


e./ Írjunk minden második sorba! 


C. Haladjon végig a képernyőn egy "autó"! 
A programok neve: 3130,AUTO 


Az "autót" természetesen karakterekből alakítjuk ki, ahogyan ezt 
a 2.4. fejezetben leírtuk. 


1 REM ——— autó ——— 
5 GRAPHICS 4 
19 SET CHARACTER 128,090,09,31,16,112,64,12 
7.220 ,8,0 
29 SET CHARACTER 129,9,0,224,16,14,2,254 
,"0,16,0 


29 1 

39 FOR Izi TO 30 

49 PRINT AT 15,I," ";:5CHRE(128):CHRSC(129) 
4S ::::FOR Jzi TO 190:NEXT 

50 NEXT 


f./ Mi a szerepe a REM utsításnak és a felkiáltójeleknek ? 

g./ Húzzon az "autó! egy "utáníutót"! 

h./ Tegyük folyamatosabbá a. mozgást a PLOT és a  PRINT$O, 
utasításokkal! 


5. — "Építsünk" különböző magasságú "házakat" egymés mellé! 
A programok neve: 31302,5OMJAZAS 


Több "házat" úgy tudunk "építeni", ha c] "házépítő" 
programrészletet (belső ciklust) többször végrehajtjuk. Egy újabb 
cikiussal - a külső ciklussal - a "ház! helyét változtatjuk. 


1 REPI ——— Házak ——— 
s. 6L.S 
19 SET CHARACTER 128,255,129,129,129,129 
v 427 iz? s tedd 29, zo 
309 RANDOMIZE 
, 


35 FOR I-1i1 TO 30 
40 :EMELET-RND(722) 


39 : FOR J-23 TO 24-EMELET STEP —1 
60 s: PRINT AT J,I,CHRS$C128) 

70 s: NEXT 

73 NEXT 

76 a 


80 FRINT AT 1,i 


i./ Készítsünk oszlopdiagram-rajzoló programot! 


3.2. Számolás 
3.2.1. Változók 


A. Számítsuk ki a 2,8 és 3,6 egység befogójú derékszögű háromszög 


kerületét és területét! 


Gépeld be a következőket! A sorok végén nyomd le a RETURN 
billentyűt! 


19 a-—-Z.B:b-3.6 
20 cssgr(a"2Zrb"72) 
Z2 print atbtc,atb/z 


A programunkat a számítógép eltárolja. Erről meggyőződhetünk, ha 
a begépeljük a LIST parancsot. A program kiírása nagybetűvel 
történik. 


10 A—7Z.8B:B-5S.6 
20 €—-SOR(A7TZ2Z-4rB7Z) 
30 FRINT A-RBIC,ARB/2 


Ha a RUN paranccsal elindítjuk a programot, megkapjuk az 
eredményt. 
A program három utasítássorból áll. Az utasítássorok sorszámára 
hivatkozva a program értelmezése: 
189-es sor: 
A és B változóknak értéket adunk. A két utasítást kettősponttai 
választjuk el. 


28-as sor: 
Kiszámítjuk az átfogót. A C változó értékét - pitagorasz-tétel 
segitségével - úgy kapjuk meg, hogy az A és 3 változók 
négyzetének összegéből négyzetgyököt vonunk. 

3090-as sor: 


Kiszámítjuk és kiiratjuk a háromszög kerületét és területét. 


a./ Számítsd ki a 5 és 4 ill. a 153,6 és 48,3 egység befogójú 
derékszögű náromszögek kerületét és területét! 


b./ Hogyan számítjuk ki a derékszögű háromszög kerületét és 
területét, ha adott az átfogó és az egyik befogó? 


3.2.2. Adatok bekérése 
A. Írjuk át a 1080-es sort és indítsuk el a programot! 


19 INFUT A,B 
29 C-SOR(AT2-5B7TZ) 
39 PRINT A-B-AXC,ArtB/Z 


A számítógép kérdőjel kiírásával jelzi, hogy kéri az INPUT 
utasításban felsorolt változók értékeit. Gépeljük be a két befogó 
hosszát úgy:, hogy a két szám közé tegyünk vesszőt és végül nyomjuk 
le a RETURN billentyűt. 

Előző programunk nem ad semmiféle tájékoztatást arról, hogy mit 
kér és mi az amit kiszámított a számítógép. Most a PRINT 
utasítással, az adatok bekérésénél és az eredmény kiírásakor, 


BE b 


magyarázatokat is kiíratunk. e 
19 CLS:FRINT "Befogókz";::INPUT Aa,B 
28 C-SOKR(AT2Z4BH7Z) 
39 PRINT "kerületez":3A4BAIC 
49 FKINT "Területez";AtB/Z2 


Az INPUT PROMPT utasítással a változók értékeinek bekérésén kívül 
a szöveget is kiírathatjuk. 


19 INFUT PROMPT "Befogók ":2:A,B 
29 C5SORC(ATZ4B7TZ) 

39 FRINT "Kerületez";AtrBIAC 

49 FKINT "Területez":AtB/Z 


A PRINT USING után iH (kettőskereszt) karakterekkel az eredmény 
formátumát adjuk meg. A kettőskeresztek a kiirandó egész ill. a 
törtrész számjegyeinek számát határozzák meg. 
129 CLS:INFUT FROMFT"Befogókz":A,B 
29 C-SOR(ATZTRB7Z) 
30 FRINT "kerületez"::FRINT USING " HtHttHtttt. 
tt": ATBIC 
49 FRINT "Területez"::FRINT UJSING"Híttttttt. 
H":AtBZZ 
a./ Milyen különbséget látsz az INPUT és az INPUT PROMPT 
utasítások között? 


,b./ Adott egy kocka alakú test oldalélének hossza és sűrűsége. 
Számitsd ki a kocka tömegét! 
Hogyan számítanád ki papíron? 


c./ A PRINT AT utasítás alkalmazásával kérjük az adatokat a 
képernyő közepén, és az eredményt is oda íÍrassuk ki! 


3.2.35. Vizsgálat 


A. Adott a derékszögű háromszög átfogója és befogója. Számítsuk ki 
a háromszög kerületét és területét! 
Program neve: 323A 


Gondoljuk végig a feladatot! 


1./ A számítógépnek be kell kérnie két számot. Az egyik az átfogó, 
a másik a befogó hossza lesz. 


2./ Ki kell számítani a másik befogót. 


3./ A három oldal ismeretében már meghatározható a kerület és a 
terület. 

A két beolvasott szám, azaz az átfogó és a befogó értéke nem 
lehet tetszőleges. Az átfogónak nagyobbnak kell lennie, mint a 
befogónak. A számítógéppel megvizsgáljuk, hogy tényleg — ilyen 
értékeket adunk-e meg. 

A 4080-es sorban az IF utasítás biztosíja, hogy ha a C értéke 
kisebb vagy egyenlő, mint A értéke, akkor a PRINT utasítással 
kiírja azt, hogy "rossz adatok", és a  GOTJ utasítással 
visszaugrunk a 2989-as sorra, ahol a program újból kéri az adatokat. 


sa Ét 


19 CLS 

29 INFUT PROMPT "Atfogóz":C€C 

39 INFUT PROMPT "HBHefogóz":A 

49 IF CC(szA THEN PRINT "rossz adatok" :GOT 


58 B-SOER(C5"2-—-ATZ) 
69 PRINT "KkKerületez";3AtBIC 
79 PRINT "Területez";AtB/Z2 


a./ Álljon meg a program, ha rossz adatokat adtunk meg! 


b./ Az oldalak hosszát pozitív számokkal adjuk meg. Milyen 
vizsgálat szükséges az adatok beolvasásakor? 


B. Írassuk ki szöveggel azt, hogy milyen értéket adtunk X 
változónak! 
Program neve: 323B 

A programban azt kell vizsgálni, hogy negatív, nulla vagy 
pozitív, valamint, hogy egész vagy tört számot adtunk-e meg. 


19 CLS 

29 INFUT PROMPT "A számz":X 

39 IF X-0 THEN FRINT "nulla":STOF 

40 IF X-O THEN FRINT "negativ"; 

59 IF X:0 THEN PRINT "pozitiv"; 

69 IF X-INT(X) THEN PRINT " egész":END 
79 PRINT " tört" 


c./ Milyen relációk, logikai műveletek szerepelhetnek az IF 
utasításban? 


d./ Fogalmazd meg az IF utasítás jelentését! 
e./ Mi a különbség a STOP és az END utasítások között? 


C. Vizsgáljuk meg, hogy két szám távolsága a számegyenesen 
nagyobb-e, mint egy adott szakasz hossza! 
Néhány megoldás az A3S5 függvény alkalmazásával: 


19 CLS 

29 INPUT PROMPT"A két számz":A,B 

39 INFUT PROMPT"A szakasz: ":E 

49 IF ABS(A—-B)5-E THEN PRINT"nagyobb":END 
59 PRINT "nem nagyobb" 


19 CLS 
29 INFUT PROMPT"7A két szám: ":A,B 


39 INFUT PROMPT"A szakasz: ":E 

49 IF ABS(A—B)-zE THEN FRINT"nem nagyobb 
"END 

SZ PRINT "nagyobb" 


s Ő. az 
13 CLS 

29 INPUT PROMPT"A két számsz" 
39 INPFUT PROMPT"A szakasz: ":E 

49 IF ABS(A—B)Z-E THEN PRINT"/"mnem "s; 
S53 PRINT "nagyobb" 


13 CCS 

29 INPUT PROMFT"A két szám:":AS,B 

39 INPUT PROMPT"A szakasz: ":E 

35 PRINT "A két szám távolsága "; 

49 IF ABS(A—-B)-E THEN PRINT"nagyobb " 
:ELSE FRINT "nem nagyobb" 

45 PRINT " mint a szakasz hossza. 


f./ Fogalmazd meg az utolsó megoldás jelentését! 
g./ Oldjuk meg a feladatot az ABS függvény alkalmazása nélkül is! 


D. Adott három szakasznak a hossza. Milyen háromszög szerkeszthető 
a szakaszokból? 
Program neve: 3230 


Ahhoz, hogy egy háromszög derékszögű legyen, Pitagorasz- étel 
értelmében az szükséges, hogy két oldal négyzetösszegének 
egyenlőnek kell lennie a harmadik oldal négyzetével. Amennyiben az 
egyenlőség nem teljesedik, és két oldal négyzetének összege 
nagyobb lesz, mint a harmadik oldal négyzete, a háromszög 
hegyesszögű, egyébként a háromszüg tompaszögű. 

Az átfogó csak a legnagyobb oldal lehet. Ez lesz Z változó 
értéke. Ha a legnagyobb érték a X vagy Y változóban van, akkor az 
értéküket kicseréljük Y változó értékével. Ez történik a THEN szó 
után, a 40-es és 50-es utasítássorokban. 

A 70-es sorban azt is megvizsgáljuk, hogy egyáltalán lehet-e ilyen 
háromszög. 


19" CLS 
29 INFUT PROMFPFT"A három szám: "2:X,Y5Z 
Z9 D3-"derékszögűüű 
32 H$sz-"hegyesszögi 
34 Tá-"tompaszögiüi " 

4AZg IF X2-Z THEN Tz5zX:X-Z 
57 IF Y2Z THEN TzszY:Y-Z 
60 IF X$HYXC-Z THEN FRIN 


T "nem háromszög": 


70 VZXÁRKTPYBYZEZ 

89 IF V-Og THEN FRINT DE; 
99 IF VO THEN FRINT H$; 
199 IF-V-O0 THEN PRINT T$5; 
119 FRINT "háromszög" 


h./ Írj programot a következő függvények benelyettesítési 
értékeinek kiszámítására: 


4 géz 1 Vxs Vr 


se 7. 1 
3.2.4. Ciklus 
A. Írassuk ki 1-től N-ig a természetes számokat! 


Az I változó értékét mindig 1-el növeljük és az — IF-THEN 
utasítással azt vizsgáljuk, hogy I értéke nem nagyobb-e mint N 
értéke. Ameddig ez teljesedik, visszaugrunk és újból végrehajtjuk 
a PRINT utasítást. 


19 CLS 

29 INPUT FPROMFPFT"ns":WN 
39 Is1 

49 PRINT I 

39 I-5I-1 

63 IF ICCN THEN 49 


Miután ilyen ismétlődést, azaz ciklust gyakran használunk, ezért 
erre külön utasítás is van. Ez a FOR/NEXT ciklusképző utasítás. 


19 CLS 

29 INFUT PROMFT"nz"ziNW 
39 FOR I-i TON 

490 PRINT I 

59 NEXT I 


a./ Írasd ki N-ig a természetes számok négyzeteit, köbeit, 
reciprokait és négyzetgyökeit! 


B. Írassuk ki növekvő, majd csökkenő sorrendben az N-nél nem 
nagyobb pozitiv páratlan számokat! 


A ciklusváltozó értékét most 2-vel kell növelnünk, miután minden 
második számot íratjuk csak ki. Ezt a STEP szó után adjuk meg. 


19 CLS 

29 INFPUT PROMFT"n5-":N 
39 FOR Izi TO N STEF 72 
49 PRINT I 

59 NEXT I 


A kezdőérték meghatározásához az szükséges, hogy megállapítsuk : N 
páros, vagy páratlan. 


109 CLS 

29 INPUT PROMPT"nzz":N 

59 IF NZZ-INT(N/2) THEN N-N—1i 
40 FOR IzN TO 1 STEP -—2 

Sg PRINT I 

69 NEXT 


b./ Írasd ki az N-től kisebb páros számokat! 
c./ Keresd meg a hárommal osztható kétjegyű számokat! 


d./ Vizsgáld meg a következő programmal a FOR/NEXT utasítás 
működését! 


—- 31 - 


19 INPUT PROMPT"kezdöőértékz"z:K 
2 INFUT PROMPT"Végértéke":V 
zZ9g INPUT PROMPT"Lépésközz":L 
49 FOR XzkK TO V STEP LL 

sg PRINT X 

69 NEXT X 


Ábrázold számegyenesen a kezdő, a vég és a ciklusváltozó 
értékeit! Mikor fejeződik be a ciklus? Értelmezd a FOR/NEXT 
utasítást! 


e./ Mikor nem kell a lépésközt megadni? 
f./ Írj programot, amivel függvénytáblázatot készíthetsz! 


C. Adjunk össze N darab számot! 
Programok neve: 324CI,326C2. 


A. FOR/NEXT ciklus vizsgálatakor 
észrevehettük, hogy a ciklust egyszer 
mindig végrehajtja a számítógép. 

Ebben a feladatban a számok 
beolvasásához és azok öÖösszegzéséhrz 
ciklust kell létrehoznunk. Amennyiben 
N értéke 0 akkor nincs szükség arra, 
hogy végrehajtsuk a ciklust. Erről 
külön gondoskodnunk kell. 

A számok összegét az S változóban 
kapjuk meg, amit nulláznunk kell 
mielőtt a ciklusha lépünk. 


[6 program és a program 
folyama tábrá ja: 

109 CLS 

29 INPFUT FROMFT"nz":N 

39 Ss-0 


49 IF NXI1 THEN END 

39 FOR Izi TON 

69 INPUT FROMFTSTKRIZ(I)2".száms:":X 

70 S$-$S$-4XxX 

890 NEXT 

99 FRINT "összegz";S 
Talán egyszerűbb a következő megoldás, ahol a ciklusvizsnálatot a 
ciklus elején végezzük. 

19 CLS 


29 INPUT FROMPT"n-":N 
39 S-O:I51 
49 IF NCI THEN 99 
69 INFUT PROMPTSTR$É(I)2".számz:":X 
70 $S$-S-4Xs:ImI-41 
89 GOTO 49 
, 


79 PRINT "összegz"5S 
9./ Készítsd el a program folyamatábráját! 


h./ Szorozz össze N számot! 


zám s 


i./ Egy szám összes osztójának meghatározásához készültek a 
következő programok. Magyarázd meg a működésüket! 


B. 


CLS 
INPUT PROMPT"nz"e:N 

FOR Izi TON 

IF N/IZINT(N/I) THEN PRINT I 
NEXT 


CLS 

INPUT PROMPT"nzz"zWWNW 

FOR Imi TO NZZ 

IF N/IZINT(N/ZI) THEN FRINT I 
NEXT 

PRINT N 


CLS 

INFUT PROMPT"ns5s"s:N 

FOR I-1 TO SORK(N) 

IF N/I-INT(NZI) THEN FRINT I;NZI 
NEXT 

IF I$tI-N THEN FRINT I 


CLS 

INFUT FROMPT"n-":N 

FOR Iszi TO SOR(N)-.1 

IF I$kI-N THEN FRINT I:GOTO 50 

IF N/I-INT(NZ/ZI) THEN FRINT I:N/I 
NEXT 


D. Írjunk át egy tízes számrendszerben adott számot tetszőleges 
alapú számrendszerbe! 
Programok neve: 324D,ATIRAS 


Először nézzük meg a maradékos osztás programját! 


Az 


REM --—- Maradékos osztás ——— 
CLS: INFUT FROMFT"Osztandóz":P 
INFUT PROMFT"Osztáóá—":0 
H-INT(F/G) 

M-F-HAG 

PBRIÍNT Pp a gihip eg ag a 


átszámítás algoritmusa: 


tízes számrendszerben adott szám 
az új számrendszer alapja 
hányados 

maradék 


A T-t elosztjuk maradékosan A-val, és a maradékot leírjuk. 
A T felveszi a hányados értékét. 
A hányados 8? 
igen: folytasd a 4. ponttal! 
nem: folytasd az 1. ponttal! 
A maradékokat visszafelé leolvassuk! 


A 88-as sorba írjuk be a PRINT M utasítást, és akkor a programunk 


a. aZTA 
megegyezik a szövegesen megfogalmazott algoritmussal. 


19 CLS:Wsz"" 


20 PRINT"Tizes számrendszerben a száms: "s; 


32 INFUT T 

49 FRINT "A számrendszer alapjas:"; 
sg INFUT A 

629 HEINT(T/A) 

79 M5-T-HxA 

82 WA-STRECM)2WE 

99 TzsH 

1990 IF H:-OD THEN 609 

119 FRINT "A számz";:Ws 


F. Játszunk "fej vagy írás" játékot a számítógéppel! 
A "pénzt " a számítógép "dobja fel". 


Az RND függvénnyel véletlenszámokat állítunk elő 8 és 


l között. 


Az RNO(2) fiiggvény 9 vagy 1 értékeket ad véletlenszerűen. 


19 REM ———r pénzdobálás ——— 

29 CLS:INFUT FROMFT"Hányszor?":N 
329 RANDOMIZE 

429 FOR I5s1 TON 


52 V-RKND 

69 IF V-XZO.S THEN PRINT "fej"S:5ELSE PRINT 
irás" 

79 NEXT 

19 REM —-—-— pénzdobálás ——— 


29 CLS:INFUT FROMFRFT"Hányszor?":N 
39 RANDOMIZE 

49 FOR I-1 TON 

59 V-RND(Z2) 


Sa" 3F VEL THEN ERENT . tej tELSEsSFPRINES Tá 


79 NEXT 
k./ Mi történik, ha töröljük a RANIOMIZE utasítást? 


1./ Egészítsük ki a programot úgy, hogy játszani 
számítógéppel! 


m./ Állítsunk elő TOTO tippeket! 


3.2.5. Indexes változók 


Ars Olvassunk be N számot és írassuk ki azokat 
sorrendben! 

Programok neve: 325A,KARAKT 

Az A indexes változók értékei lesznek a megadott 
változó neve után, a zárójelben szereplő index 
különböztetjük meg a változókat 


lehessen a 


fordított 


számok. A 
értékével 


la S 


"10 REM beolvasás-kiiras pen 
pa CLSz INPUT PROMPT"Nz":WNz DIM A(N) 
ZO ! — beolvasás — 


49 FOR Izi TON 

59 INPUT PROMPT SÉRS CI Vá as Té CEN 
69 NEXT I 

79-!.— kiirás — 

99 FOR ISN TO 1. STEP —1 

99 PRINT I;".sz"5A(I) 

199 NEXT I 


a./ Mi a szerepe a DIM utasításnak? 


B. Keressük ki N szám közül a legnagyobbat és a legkisebbet! 
Program neve:3258 


A beolvasott számokat sorban megvizsgáljuk és összehasonlítjuk az 
addig talált legnagyobb és legkisebb értékkel. 

Úgy kezdjük, hogy a legnagyobb és a legkisebb érték is az első 
szám lesz. Az összehasonlítás során, amennyiben találunk nagyobb 
ill. kisebb számot, annak indexét megőrizzük a MAX ill. MIN 
változókban. 


129 REM ——— maximum minimum ——— 
29 CLSs:INPUT PROMPT " Adatok számaz":N 
39 DIM A(N) 

49 FOR Izi TON 

59 PRINT Iz".sz"s; 

69 INPUT A(I) 

79 NEXT 

TEAM 7 te 

87 MAX-1:MIN-—1i 

99 FOR I:2 TON 

109 IF A(I)CTA(MIN) THEN MIN-zI 
119 IF A(I)LA(MAX) THEN MAX-—I 
129 NEXT 

139 PRINT "A legkisebb-—";A(MIN) 
149 PRINT "A legnagyobbz";5A(MAX) 


£. Egy versenyen minden versenyző maximum 18 pontot kaphat. A 
csapat átlagát úgy számítják ki, hogy a legjobb és a legrosszabb 


eredményt elérő versenyző pontszámát nem veszik 
figyelembe. Készítsünk programot, amivel ezt a számítást 
elvégezhetjük! 
Program neve: 325C 

19 REM ——— Atlag ——— 


29 CLS:INPUT PROMPT"A versenyzők száma ( 
mim. 3): ":NSDIM A(NI 

24 ! 

z2zS REM -—--—- Adatbeolvasás ——— 

3 PRINT "Fontszámok (max. 190): " 

49 FOR I51 TON 

59 INFUT PROMFT STREC(I)2". vesenyzös "2: AC 


55 IF AC(I3519 OR A(I:CG THEN 50 
690 NEXT 


an SZÓ sé 

79 REM --- Legnagyobb , legkisebb ——— 

929 MAXzi:MIN-1i 

99 FOR I-2 TON 

193 IF A(CID)CTA(C(MIN) THEN MIN-I 

119 IF AC(CI)DA(MAX) THEN MAXzZI 

p krz NEXT 

i29 1 

139 REM  ——-—- A4tlag ——— 

149 Sz-ACMIN)D)-—-A (MAX) 

159 szg 

169 FOR I51 TON 

179 Sz-zS-4AC(I) 

189 NEXT 

199 PRINT "Atlagz"; 

2909 PRINT USING"HtH.tHH":SZ/(N—2) 
D. Készítsünk programot, amivel LOTTO tippeket ad a számítógép! 
Programok neve: 3250, ,LOTTO 


A véletlenszerűen kihúzott számot meg kell jegyeznünk, hogy még 
egyszer ne húzhassuk ki. Az A indexes változók közül csak azoknak 
adok értéket, pl. 1-et, amelyiknek az indexe megegyezik a kihúzott 
számmal (7898-es sor). 

Az 58-es sorban állítjuk elő a LOTTO számokat, és ide ugrunk 
His a 6808-as sorról, ha korábban már kihúztuk a számot, azaz ha 
AC(T)-1. 

A 90-es sortól kezdődik az a ciklus, amelyikkel kiíratjuk azokat 
az indexes változókat, amelyeknek értéke 1. 


£(d "REPI ses ET TET sss 
29 DIM A(70) 

39 CLS:RANDOMIZE 

ed ER át : TO S 

59 T-RND(99)--1 

69 IF A(T)-i THEN 50 
79 A(T)zi 

82 NEXT 

928 FOR Izi TO 979 
109 IF A(I)—1i THEN PRINT I 
119 NEXT 


E. Adjunk össze két n számjegyből élló pozitív egész számot! 
Programok neve: 325E, HATVANY 


Nagyon nagy számokat csak úgy tudunk pontosan összeadni,ha a 
számok számjegyeit külön-külön adjuk meg és a papíron végzett 
összeadáshoz — hasonlóan, helyiértékenként végezzük el az 
összeadást. 

A számjegyek az A és B indexes változók értékei lesznek. A 
számjegyeket a DATA adatlistában adtuk meg, ahonnan a READ 
utasítással olvassuk be az indexes változókba. Az indexet a 
ciklussal változtatjuk. 


2 úg 


Az azonos helyiértékű számok, azaz az azonos indexű számjegyek 
összegéhez még hozzáadjuk az átvitelt (V változó), amiből már 
meghatározható az összeg I. számjegye és az átvitel (1380 és 1480-es 


sorok). 


REM —--—- nagy számok összeadása ——— 
N:9s:DIM A(CN-—-13 , B(N-1) ,EC(N) 

REM ——— számok beolvasása ——— 
CCSZERINT" "SFOR ImWNW-—-1i1 TO 8 STEP - 


READ A(I)Í:PRINT ACI); 
NEXTSPRINTSPRINT ." e 

FOR -Í5N—1i1 TO 8 STER —1 

READ B(I):PRINT BC(I); 
NEXT:PRINT 

REM ——— összeadás ——-— 

v-g 

FOK I-9g TO N-—1i 
CCI5SA(I)-45E(T)-V 
VzIMT(CCI3/7199:CCIÍIZOC(I)—196V 
NEXTV 

C(N)-V 

MEN -—-— eredmény kiirása ——— 
FOR I:szN TO B STEF -1 

PFERINT ECCIz 

NEXT:FRINT 

REM ———— a két szám ——— 

DATA B.SstsS 05185 s 

DATA 7.25O.T7 ZS. sils3 


b./ Mit csinál a orogram? Írd le az algoritmusát! 


CLCS:INPUT FROMFT "n:":N 

DIM A(N) 

FOR Izi TON 

INPUT PROMFT STRE(I)8". z":A(I) 
NEXT I 

, 

Az0: I-1 

IF A(ID(-A(I-41) THEN 129 
WZACI)TA(IJZA(I 41): A(I41)sW 
071 

I-I-41:IF I-XN THEN 99 

IF 0-1 THEN 80 

, 


FOR Iz1 TON 
PRINT I;".";ACI) 
NEXT I 


etés TAR 


3.3. Grafika 
3.3.1. Változók 
A.  Keretezzük be a képernyőt! 


Vonalakkal össze kell kötnünk a képernyő sarkaiban lévő pontokat. 
Gépeljük be a következő programot (a sorok végén nyomjuk le a 
RETURN billentyűt) és indítsuk el a RUN paranccsal! 

Begépeléskor a program kisbetűkkel látható a képernyőn, de a LIST 
parancsra már nagybetűkkel írja ki a számítógép. 


19 GRAPHICS 2 

29 FLOT D,90;1025,0O; 

39 FLOT 1025,958;0,958 
4m FLOT :0,0O 

58 GET 


Az utasítások elején a számok az utasítássorok sorszámai. Az 
utasítások végrehajtása a sorszámok növekvő sorrendjében történik. 


a./ Mi a szerepe a RETURN billentyűnek a programok begépelésekor! 
b./ Miért van szükség a GET utasításra? 


B. Adottak a téglalap bal felső és jobb alsó pontjainak 
koordinátái. A téglalap oldalai legyenek párhuzamosak a képernyő 
széleivel. Rajzoljuk meg a téglalapot! 


Jelöljük a bal felső pont vízszintes koordinátáját AÁAl-el, a 
függőleges koordinátáját A2-vel. A jobb alsó pont koordinátái 
legyenek B1l és 82. 

Mindenek előtt meg kell határoznunk a másik két pont koordinátáit. 
Ezek: CALl,32) és (B1,A2) 

Az AL,A2,Bl és 82 változóknak sz értékadó utasítással adunk 
értékeket. A PLOT utasítás már szokkal az értékekkel számol, 
amelyeket az egyenlőségek jobb oldalán megadtunk 


19: REM aziszsázaző 2 ág." ölkestszégei 

29 GRAFHICS 4 

a A17-0: A2-95SB 

49 B1-19253:B2Z- 

59 FLOT A1, AZ;5B1,AZ;:B1.,BZ; 
69 FLOT A1,BZ;A1,AZ 

79 GET 


A pontok koordinátáit a RUN parancs után adhatjuk meg, -amikor 
már fut a program-,ha az adatokat az INPUT utasítással kérjük. 

Az INPUT utasítás kéri a két sont koordinátáit. Ezeket vesszővel 
elválasztva begépeljük és befejezésül lenyomjuk a RETURN 
billentyűt. 

Az INPUT elé PRINT utasításokat írtunk, amelyekkel kiíratjuk azt, 
hogy milyen adatokat kér a orogram. Ahhoz, hogy más is 
használhassa programunkat, erre mindig szükség van. 


ős, 1 : ipa 


19 REM -—-—— téglalap ——— 

29 CLS:PRINT "bal felso pont"; 
25 INPUT Al.AZ 

B. PRINT "jobb also pont"; 

35 INPUT B1,B2 

49 GRAPHICS 16 

sg PLOT Ai,AZ;B1,AZ:B1, BZ; 

69 PLOT A1,BZ2Z;5A1,AZ 

79 GET: GRAPHICS 4 


Amihez az előzőekben két utasítást használtunk, azt egyedül az 
IMPUT PROMPT utasítással is megoldhatjuk. Ez az utasítás kiírja a 
megadott szöveget és kéri a felsorolt változók értékét. 

129 REM -—-- téglalap—2 ——— 


29 CLSzINFUT PROMPT"bal felso pont":A1,A 


t 


ZO INPUT PROMPT" jobb also pont":B1,B2 
429 GRAFHICS 16 

SD PLOT A1,AZ;:;B1,AZ;:B1,BZ; 

69 FLOT A1,BZ2Z:A1,AZ 

70 GET: GRAFHICS 4 


c./ Hogyan jelzi a számítógép, hogy adatot vár tőlünk? 


d./ Rajzolj téglalapot, ha adottak a bal felső — pontjának 
koordinátái, továbbá az oldalak hossza! 


e./ Hány adatot kell megadni 
1./ a négyzet, 
2./ a háromszög rajzolásához? 


c. Toljunk el egy egyenlő oldalú háromszöget vizszintesen VI: 
függőlegesen V2 egységgel! 
Program neve: 331C 


A háromszöget úgy rajzoljuk meg, hogy megadjuk az egyik csúcspont 
koordinátáit és az oldal hosszát. 

Ha a háromszög egyik oldala párhuzamos a képernyő valamelyik 
szélével, akkor ezekből az adatokból kiszámíthatjuk a háromszög 
másik két csúcsának koordinátáit. 


19 REM --- eltolás ——— 
29 GRAPHICS 4:INFUT PROMPT"a háromszög C 
súcspont jának koordinátái s ":X,Y 


Z2 INPUT PROMPT" oldalának a hosszaz":A 
49 GRAPHICS 2 

59 PLOT X,YIXFA,Y:;XFAZZ,YFARSOR( 3) /25X 
629 INPUT PROMPT "vizszintes eltolász": 
729 INPUT PROMPT "függöleges eltolász 
82 XXVI: Y-YIVZ 

99 PLOT X,Y;XTA,Y;5X-IA/Z2,YTAHRSOR (5) /25X), 
199 GET: GRAPHICS 4 


9, 
ev 
úti, 


hú 
p) 
7 
Y 


f./ Mi történik, ha a 96-es sorba 
L./ GOTO-5B 
2./ X1-XI-36:Y1-Y1-48:GOTO 78 utasításokat írjuk? 


g./ Hogyan nagyíthatjuk a háromszöget? 
h./ Tükrözzük a háromszöget a képernyőt felező egyenesre! 


sei JES 


D. Rajzoljunk egy négyzetet és fessük be! 
Program neve: 3531D 


A festést az átlók metszéspontjában kezdjük. A koordináták 
értékeit ki tudjuk számítani. Ez a pont biztos, hogy a négyzet 
belsejében van. 


19 REM ámen. ebgjzet 5—- 

29 GRAPHICS 4 

39 INFUT PROMFT"7Ta négyzet csúcspont jának 
kocordinátáis "a XxX,Y 

49 INFUT FROMPFT"7"a négyzet oldalának hoss 

zaz":A 

590 GRAFHICS 2 

69 PLOT X,Y;XFA,LY5XPTA,LYFALX,YFALX,Y 

780 FLOT XrA/Z,YFAZZ,PAINT 

84 GET: GRAPFHICS 4 


a 


3.3.2. Vizsgálat 


A. Készítsünk orogramot, amivel rajzolni lehet a képernyére! 
Programok neve 332Al1,3524A2,5332A3, RAJZI. 

Legegyszerűbben szakaszokból tudunk kialakítani valamilyen 
alakzatot. A szakaszok végpontjainak koordinátáit kell sor5b357 
megadni. 

Mielőtt meghíznánk egy szakaszt, meg kell vizssélnunxk a begépelt 
adatokat. A pontnak a képernyőre kell kerülnie. Az X és Y változók 
értékei csak megadott határok között mozoghatnak. 


19 REM ———- rajz ——— 
29 GRAFHICS 4 

39 PRINT AT 273,8,CHRS3(25) ; "koordináták"; 
4D INPFUT X,Y 

59 IF X-g THEN 119 

69 IF Y-Cg THEN 110 

79 IF X21023 THEN 1108 

8g IF Y25958 THEN 119 

99 PLOT X,Y; 

199 GOTO 350 

119 PRINT AT 25,8,CHRE(ZS); 


a./ Hogyan lehetne felemelni a "ceruzét!? 
b./ Milyen relációjeleket ismersz? 


Egy másik módja a rajzolásnak, amikor a billentyik, vagy e 
botkormány segítségével irányítjuk a "ceruza! mozgását. 


A billentyűzetről GET utasítással beolvasott karaktert 
megvizsgáljuk és ha a karakter 

j - jobbra, 

B - balra, 

$ s elk 

l - lefelé húzunk vonalat; 

i - "letesszük a ceruzát!" , 

n - "felemeljük a ceruzát" , 

s - elindítjuk a festést. 

A vizsgálatot az IF utasításokkal végezzük. Akkor, ha a re 


léció 
értéke "igaz", a számítógép a THEN szó utáni utasítást hajtja 
végre, ezután megy a következő utasítássorra. 


BENN (a VE 


Amennyiben a reláció értéke "hamis", . akkor a következő 
utasítássor végrehajtására kerül sor. 


12 REM ——— rvajz—1 ——- 
229 GRAPHICS 4:INFUT PROMPFT"Kezdopont":X, 


39 SET RATE 1:GRAPHICS 2:T-1 
49 PLOT X;Y 

59 ASZINKEYS 

60 IF Arz"j" THEN X5-X-610 

70 IF A$z-"b" THEN X5-X-10 

89 IF A$-"£" THEN Y-Y-r10 

99 IF As-"1" THEN Y5Y—10 

100 IF A$z"i" THEN T-1 

119 IF Ar-"n" THEN T-0 

129 IF As-"v" THEN 170 

1309 IF As-"s" THEN PLOT X,Y,PAINT 
149 IF T-O THEN FLOT X,Y, 

159 IF T-1 THEN FLOT ;X,Y 

160 GOTO 50 

170 PRINT AT 22,1 


c./ Miben különbözik a GET utasítás az INKEY$ függvénytől? 
d./ Értelmezd a CHR$ és az 0RIJ függvényeket! 
e./ Mi a szerepe az XI és Y1 változóknak? 


B. Rajzoljunk a képernyőre egy koordináta-rendszert, amelynek 
origója a képernyő közepére esik. A program kérje a megjelenítendő 
pontok koordinátáit. 
Program neve: 332B 


Mielőtt kirajzolnánk a pontot, megvizsgáljuk, hogy az a 
képernyőre kerülne-e (8080-as és 9090-es sorok). 

A koordináta-rendszerünk és a képernyő (0,9) pontja nem esik 
egybe. A pont koordinátáit át kell számolnunk a képernyő 
koordináta-rendszerébe (1860-as sor). 

A program akkor fejeződik be, ha a pont első koordinátájának a 
9999 értéket adjuk. 


19 REM —-—— koordináta-—-rendszer—1i ——-— 
227 GRAPHICS 4 

s9 FLOT 0,480;10925, 480 

49 FPLOT 5190.505519.,5958 

59 PRINT AT 23,2,CHREZC25) ; "Koordináták"; 
60 INPUT XSY 

70 IF X9999 THEN 1209 

89 IF ABS(X)25190 THEN 50 

99 IF ABS(Y)-489 THEN 509 
199 FLOT X-S5S109,Y--480 
110 IF X-£259999 THEN 409 
1208. PRINT AT ZZvi 


f./ Mikor hajtja végre a számítógép a THEN szó utáni utasítást? 


g./ Mit jelent az, ha a THEN szó után csak egy szám van ? 


3.3.3. Ciklus 


A. Rajzoljunk a 


gs 


képernyőre egy számegyenest! Az egység hossza 


legyen tetszőleges. 
Program neve: 3335A 


139 REM -—-—— számegyenes ——— 
29 GRAPHICS 4:INPFUT PROMPT"Egységz":E 


33 GRAFH 
49 PLOT 


ESZ 
19983 , 496:PRINTHOD, 72" 


39 FLOT 0,480;1900906,480, 

69 FOR X-9 TO SDO STEP E 

79 FPLOT 5009-X,485;509-4XxX,475 
82 FLOT 5S29-x, 485; 599-x,475 


99 NEXT 
199 FLOT 
119 PLOT 


A FOR és a NEXT 


xX 
495,460:FRINTHO,"-"O" 
4935-E,460:PRINTHOD, "17 


utasítások közé Írtuk azokat az utasításokat, 


amelyekkel a beosztásokat rajzoljuk meg. Ezeknek az utasításoknak 


a végrehajtása 


ismétlődik mindaddig, ameddig E lépésközéönként 


$-tól el nem jutunk 588-ig, azaz a képernyő széléig. 


a./ Számokkal is 


B. Egészítsük k 


ciklusváltozó ér 
Program neve: 33 


írjuk ki a beosztások értékét! 


i az előző programot! Ábrázoljuk a számegyenesen 2 
tékének változását! 
38 


19 REM —-——- -cikl1us-utasitás ——— 


ZD GRAFH 
539 GRAPH 
427" FEOT 
s8 FOR X 
69 PLOT 
Z2:FLOT 
99 NEXT 
199 FPLOT 
s ós hl va sagél szal 8 mg Hg 
, 


219 PRINT 
220 FRINT 
Sza vFEOT 

240 FRINT 
250 FRINT 
260 PLOT 

270 PRINT 
289 PRINT 
zza PRINT 
291 PRINT 
2z92 PRINT 


ICS 4:INPUT PROMFT"Egységz":E 
ICS 2:PLOT 1900,496:FRINTHO,T-" 
2,489;1006,489, 

zZ TO 5008 STEP E 
599-Xx, 485; 5009-4Xx,475 
599-x , 485; 599-X, 475 

x 

495, aA60:PRINTHO, "0" 
495-4-E,460:PRINTHO,"1" 


——-- adatok bekérése ——— 


AT 2,4,"kezdöőöérték"::INFUT Kk 
AT 4,29,"kezdöőérték—";k 
59090-K:E , 480; 509--HtE,S10 

AT 294, ,STRINGEC(ZD,3S2) 

AT 2,4,"végérték"::INPFUT V 
599--4V-:E , 489 ; 529--VrE,510 

AT 6,290,"végértékz"54V 

AT 2584 ,STRINGE(2ZD, 32) 

AT 2,4,"lépésköz"::INPUT L 
AT 8,20,"lépésközz":L 

AT 2,4§4,STRINGSE(Z2O,372) 


2 7 s 


294 ! 

295 REM -—-—- ciklus-zutasiíitás ——— 
296 ! : 

ZO FOR XzK TO V STEP LL 

319 GET 


329 PLOT 599--XtE, 480; 599-4XrE,500 

ZZO SET INK 20:SET PAPER 1:PRINT AT 109,20, 
"ciklusváltozóz"; 

349 FRINT USING" ttáttbit. $$":X:SET INK 1:SET P 
APER 0 

zS5S9 NEXT 

369 PRINT AT Z22,1i 


b./ Mi a szerepe a STRING$ függvénynek és a — PRINT USING 
utasításnak? 


c./ Próbáljuk ki a következő eseteket: 
KEV és L50 
KKV és LA 
KöV és L50 
KIV és LCÁ 
K-V és L tetszőleges. 
LSE Rajzoljunk kört! 
Programok neve: 333C1, 333C2, 333C3, 333C4, 33909; 33306, 
ELLIPSZIS, SPIRÁLOK 


Mielőtt hozzákezdenénk egy kört rajzoló program megiíirdsáhuz , 
rajzoljunk egy derékszögű háromszöget! 

Az átfogó egyik végpontjának koordinátái (U;V), a háromszög 
átfogójának hossza R, vízszintes befogója X. A 68-as sorban a két 
befogó, a 70-es sorban az átfogó mentén jutunk el az átfogó egyik 
végpontjából a másikba. 


19 REM  —-—-— derékszögü háromszög ——-— 
29 GRAPHICS 2 

39 U-508: V-S0O0: R—ZBDD 

49 X:280 

59 Y-SOR(R3R—XxX) 

60 FLOT UV: UrX,V3:U-4-X,VIY 

798 PLOT USV5145X.. VEY 


Változtassuk X értékét -R-től R-ig. A sok háromszög egy fél 
ellipszist fest a képernyőre. 


19 REM  ---—- derékszögü háromszögek ——— 
29 GRAPHICS 2 

39 U:SB0ü: V:SDB: RT Rn 

48 FOR Xz-R TOR 

59 Y-SOR(RHR—XXsX) 

62: PLOT U,V5UÚU3X , Vs U-4-X.5, VAY 

79. PLOT UGY V5UrX, VHY 

89 NEXT 

724" BET 


Azéri rajzol az előző program egy fél ellipszist, mert a képernyő 
két pontjának távolsága függőlegesen mérve kisebb, mint 
vízszinteseh. Szoroznunk kell Y-t 1.4-1.5-el (szemmérték és a 
képernyő beállításától függően), ha félkört akarunk rajzolni. 

A képernyőn látszik, hogy a félkör két szélén a körív helyett 


SZÁR 


szakaszokat rajzol a program. Itt X értékének kis változásával Y 
sokat változik. A körívnek a középső része "szép". Ebből az ívből 
fogjuk rajzolni a kört úgy, hogy azt 90 fokkal elforgatjuk. 

A 90 fokos elforgatást a következő programmal mutatjuk be. A 
programot úgy sorszámoztuk, hogy az előzőt ne írja felül ez a 
program. A RUN 208 paranccsal indítható, és valamelyik billentyűt 
le kell nyomni, hogy a következő merőleges szakasz megjelenjen. 


2009 REM ——— merölegesek ——-— 
218 GRAFHICS 2 

z29 U-508: V-5Sg0B 

250 Xz1900:Y-200:kizi.5 

240 PLOT U,V35U-rX, V-KY: GET 
259 PLOT U,V35U-Y , V--kitX: GET 
269 PLOT Ú,V;3U-X,V-kKíY: GET 
278 PLOT ÚU,V; UGY, V-KatX 


Írjuk át a félkört rajzoló programunkat! 


109 KEM csádi. ! adat illetsz 

29 GRAFHICS 7 

30 U-500: V-S00 : R—ZOBD 

buz X15—S8R/4:YI-SOÖOR(74RHR/16) :kisi.5 
49 FOR X-—SxR/4 TO ZxR/4 STEF ZO 
58 Y:SOR(R3HR—XItX) 

60 FLOT U-4XI,V-KÁY15U4X , V-H-KIAEY 

70 PLOT U-Y1,V-KáXI15ÚU-Y , V-irkiaX 

75 FLOT U-X1 ,V-KHY1;5U-—X,V-KAY 

89 PLOT UTY1,V-KIXI1 5 U-Y , V-KtX 

99 X15-X:YI15-Y 

199 NEXT 


AK és L változók értékétől függ .az ellipszis alakja. Az XI és Yl 
változókban az előző pont koordinátáit őrízzük meg. A lépésköz 
változtatásával gyorsíthatjuk vagy lassíthatjuk a rajzolást, és 
ettől függően durvább vagy finomabb görbét kapunk. 


Ezek után nézzünk egy másik megoldást is! 

Most úgy rajzolunk derékszögű háromszöget, hogy az átfogó egyik 
végpont jának koordinátáin (U;V) kívül, adott az átfogó hossza, és 
a vízszintes befogó melletti szög; FI. 

A szöget radiánban kell megadni. Ez azt jelenti, hogy PI 
radián - 188 fok, tehát PI/4 radián - 45 fok. 

Az átfogó és a SIN(szinusz) és COS(koszinusz) szögfüggvény 
segítségével kiszámíthatjuk a két befogót. 

Most csak az átfogókat fogjuk kirajzolni, azaz egy kör sugarait. 


19 REM —-——— átfogók  ——- 

29 GRAFHICS 2 

320 U-5S0200: V-SO0: R—ZDD 

4AD A-i:B—1.4 

ad FOR FISFPFIZZ TU BYEFIZZ STEP PTZÁG 
690 X-R$COSC(FI):Y-RHSIN(FI) 

72 X-ARX:YZBARY 

90 FLET ÚSVEWEK S SNTY E 

99 NEXT 


Az előző programból könnyű egy másodperceket mérő órát készíteni. 
A SET INK utasítással A "ceruza" színét a háttér színére állítjuk, 


SEBE v. gets 


ekkor törli az előző vonalat, vagy láthatóvá tesszük a "ceruza!" 
színét, ekkor húzzuk a vonalat. 


19 REM ——— óra ——— 
20 GRAPHICS 2 

39 U-500:V-508: R-290 

40 A-i:B5-1.4 

59 FOR FI-PI/2 TO —3£PI/2 STEP -PI/30 
60. X-RECOS(FI):YSRESIN(FI) 

70 X-AXX:YZBRY 

75 SET INK- 0 

89 FLOT U,V;UHrXI,V-HYI1 

85 SET INK 1 

$9 FLOT U,V;UrX,V-EY 

1090 X15X:YI1zY 

195 FOR 1-1 TO S009:NEXT 

119 NEXT 


Ezek után nézzük a programunkat, amivel kört rajzolhatunk: 


í0 REM ss kür ses 

29 GRAFHICS 2 

39 U-S0DO: V-5SDD: KR—ZODD 

49 A-i:B-1.4 

50 FOR FI:5PI/2 TO S4PI/2 STEP PI/15 
69 X-RARCOSC(FI):Y-RESIN(FI) 

70 X-ARX:Y-BRY 

89 PLOT U$X,V-HRYs 

119 NEXT 


d./ Rajzolj céltáblát a képernyőre! 


3.5.4. Függvény, szubrutin. 


A. — Rajzoljuk fel az xt- 145 függvényt a képernyőre! 
Programok neve: 334A,FVABR 


A koordináta-rendszert kirajzoló részt" a számegyenes-rejzoló 
program kiegészítésével oldottuk meg. 

A függvény rajzolásakor végigmegyünk vízszintesen a képernyő 
minden lehetséges értékén, és a pontnak megfelelő X értékhez 
tartozó függvényértéket meghatározzuk. Legvégül csak azt kell 
kiszámítanunk, hogy az Y értékének a képernyő melyik pontja felel 
meg. 

Akkor,ha a pont nem kerül a képernyőre, a képernyő szélén a 
"papír" színével rajzoljuk ki a pontot. 


19 REM  ——— függvény rajzolás. ——— 

29 REM ——-- koordinata-rendszer  ——— 

39 GRAPHICS 4:INFUT PFROMFT"Egyseg—":E 
49 "GRAPHICS Z2Z:FLOT 109090,496:FRINTHO, "2" 
59 FLOT 0,480;1996,480, 

640 PLOT 493.,9582zPRINTHEOR, "5" 

79 FLOT 590,0;5979,949 

89 FLOT 5S009-E, 470; 5909-E, 499 

99 PLOT 493-E,460:PRINTHO," "1" 


át 


1099 REM -—-—— függvény ——-—— 
119 DEF FNY(X)szX52—15 

129 FOR Iz9g TO 1923 STEP 5 
139 Xz(I-599)/E 

149 YzFNYCX) 

159 JaY4tETSDB 

169 Tszí:SET INK T 

179 PRINT AT 2,520,7x—"s; 
189 PRINT USING" Httttt. át": Xx 
199 IF J-Gg THEN T-Wg:J-0Xg 
299 IF J-958 THEN T-BD:J-95S8B 
210 SET INK T:PLOT ;I,J 
229 NEXT 

258 GET:CLS 


A függvényeket a DEF utasítással, az ún. függvénydefiniáló 
utasítással adtuk meg. A DOEF szó után a függvény neve, és 
zárójelben a függvény változója. Az egyenlőség jobb oldalán a 
függvényünk. Más függvény. ábrázolása esetén csak az egyenlőség 
jobb oldalát kell módosítani. 


a./ Változtasd a lépésköz értékét a FOR ciklusban! Mit 
tapasztalsz? 

b./ Magyarázd meg a 128-148-es sorokat! 

c./ Mi történik, ha a T értéke 0? Miért van erre szükség? 

d./ Ábrázold a következő függvényeket! 


a 
ymx-; ye x2-5; yelxt; ya -x ; yz (x-2) 
ynXi Um 2x) yz-3xj ye ix 9 ye -Zx; yz 2x33 


e./ Oldd meg grafikusan a következő egyenleteket! 
xa2x43 (x-5)-a-2x45 x2z -2x-5 
xi5 zx a2lxt3z 8- x2 xZe5 z 5 


B. Készítsünk oszlopdiagram-rajzoló programot! 
Program neve: 334B 


Vegyük elő a téglalap-rajzoló programunkat (3.3.1./B)! Készítsiink 
ebből egy szubrutint, amit a GOSUB utasítással hívhatunk a ciklus 
belsejéből. 

A szubrutin egy olyan programrészlet, ami valamilyen részfeladatot 
old meg. Jelen esetben egy téglalapot rajzol. 

A szubrutin a RETURN utasítás végrehajtásával fejeződik be, és 
utána a GOSUB utasítást követő utasítással folytatódik a program 
végrehajtása. 


sa Ne 


19 REM ——— öszlop-—-diagram ——— 

29 CLS:INFUT PROMPT"Adatok számaz":N 
33 D-100209/N:EZ2-0D 

40 GRAFHICS 2 

41 ! 

sg FOR I:9g TO N-—1 

680 PRINT AT 2,50,STRINGZ(19,32) 
70 PRINT aT 2,50,"adat"s::INPUT Y 
99 Al1-I4tD:AZzY: B1i1-Ai1trD 

92 GOSUB 2090 

199 NEXT I 

191 § 

119 PRINT AT 2,50,STRING£$(19,52) 
129 GET:CLSzEND 

i99 ! 
209 REM  --— téglalap ——— 
219 PLOT A1,AZ;:B1,AZ:;B1,BZ; 
229 FLOT Al,BZ2Z;A1,AZ 
2320 RETURN 


A FOR ciklussal N db adatot kérünk be és megrajzoljuk az adatnok- 
noz tartozó oszlopokat. 


f./ Fesd be a téglalasokat! 

9./ Add meg az adatokat a programban! 

h./ Rajzolj halmazkarikákat és azt keretezd be! 
i./ Rajzold ki az climpiai jelvényt! 


SZAT 


3.4. Karakterláncok 


3.4.1. Műveletek, függvények 


A. 


Vizsgáljuk meg, hogy hogyan tudunk előállítani 


karakterlánc karaktereiből egy másik karakterláncot!  Gépeljük 
és értelmezzük a programot! 
Program neve: 341A 


53 REM ——— függvények ,láncolás ——— 
19 CLS:K$Ssz"karakter" 

29 INPUT PROMPTK$2."1láncs:":04$ 

39 INPFUT PROMPT"Elsö "2KEZ" sz "gA 
49 INPUT PROMFT"Utolsó "£KEZ2" s "es 
59 FRINT Az". "2KIERT: "-OSCA) 

60. PRINT By". "KS" é. "AFC BI 

79 PRINT Az"."2KEL"tŐÖls "5OSCAz) 

89 PRINT Bz"."52KöSöt"vigzs "50$£$(s:B) 

94 PRINT As". "5SKEL"TtŐl a"$Bzy". "EK$ÉS"TIiGz 
"5O$(A:B) 


§ 


egy 
be 


a./ Az INPUT PROMPT és a PRINT utasításban a § jel helyettesíthető 
;-vel? 


B. 


Írjunk programot, amivel megvizsgálhatjuk a  karakterlánc- 
függvényeket! 


19 REM —-—-—- karakterlánc-—-függvények—i ——— 

29 CLS: INFUTPROMPFT"A karakterlánc: ":0£:P 
RINT 

390 PRINT "hossza-":LEN(O$):" karakter" :F 
RINT 

48 PRINT "elsö karakterének kódja: ":;:ORD 
(O4$) : PRINT 

59 FRINT "mumerikus értéke: ";:VALCOZ) 


19 REM --—— karakterlánc-függvények-—Z2Z ——— 

29 CLS:INFUTPROMPT"A karakter kóödjaz":Kz 
PRINT 

39 INFUTFROMPFT"A karakterek száma: ":N:FR 
INT 

49 PRINT " a kárakteri: ":CHRECKI:PRINT 

59 PRINT N; "db. karakter: ":STRINGE(N,K) 


19 REM —-—- karakterlánc—-függvények-—-ő ——— 
29 CLS:INFUTPROMFT"Numerikus adat: 7:G0 
39 PRINT "karakterlánc: ":STRACOG) 


b./ Mi a jelentésük ezeknek a függvényeknek? 
c./ Csoportosítsuk a karakterlánc-függvényeket! 


3.4.2. Vizsgálat 


A. 


nagybetűt gépeltünk-e be! 
Program neve: 342A 


A beolvasott karaktert kódja alapján vizsgáljuk. 


Döntse el a számítógép, hogy számjegyet, kisbetűt, vagy 


széle 


19 REM  —-—-—- karakterek vizsgálata ——— 

29 CLSS:PRINT AT 3,2,"Nyomj le egy billen 
tyuüt! "s: PRINT 

39 GET As:A-ORD(A£) 

49 IF AC48 THEN STOP 

59 IF AC-5S7 THEN FRINT "számjegy" ":STOP 

79 IF AC65 THEN STOP 

89 IF AC-99 THEN PRINT "nagybetü":STOP 

109 IF AC97 THEN STOP 

119 IF AC5122 THEN PRINT "kisbetü":STOP 

120 IF ACI2G THEN STOP 

139 IF ACl-1i136 THEN PRINT"nagybetü": STOF 

149 IF A-C144 THEN STOP 

159 IF ACsi52 THEN PRINT "kisbetű" 


a./ Mi a jelentése az IF utasításnak? 
b./ Logikai műveletek alkalmazásával egyszerűsítsd a 
vizsgálatokat! 


3.645 3. Giktus 
A. Írassuk ki egy karakterlánc karaktereit egymás alá! 


A karakterlánc betűit egyenként kiírjuk. A LEN függvény megadja, 
hogy . a karakterlánc hány karakterből áll. A — FOR/NEXT 
utasításpárral I értékét 1-től kezdődően egyesével növel jük 
mindaddig, ameddig I értéke nagyobb nem lesz mint a karakterlánc 
hossza. 

A karakterláncok maximális hosszát a DIM utasításban adjuk meg. 


L (REÉT "szsészzíáak tál e ezése 
209 CLS:DIM W$55Z2Z 

39 INFUT PROMPT"Szós:":W$ 
49 FOR 1-1 TO LEN(W$) 

50 FRINT WEC(I) 

68 NEXT I 


a./ Írassuk ki visszafelé a szó karaktereit! 
b./ Írassuk ki a szó magánhangzóit! 
c./ Számoljuk meg a mássalhangzókat! 


B. Vizsgáljuk meg a karakterek kódját! 
rogram neve: 343B 
A botkormány előre-hátra mozgatásával lehet a kódokat növelni, 
ill. csökkenteni(58-es és 6090-as sorok). 
A 9080-es sorban azt vizsgáljuk, hogy lenyomtuk-e a RETURN 
billentyűt. Ezzel jelezhetjük a vizsgálat végét. 

19 REM -——— karakterkódok -——— : 

29 CLS:I5532 

59 PRINT AT 12,12,CHRS(I);I 

40 GET Asz 

59 IF ORD(A$)-S THEN I-I-1 

69 IF ORD(A3)-24 THEN I5:1I-1 

70 IF Iz16€d THEN 1I-Z2 

89 IF I-31 THEN 1-—159 

99 IF ORD(A$)-5biíi3 THEN ZO 


sári 


d./ Mi történik a 78-es és a B0-as sorokban? 


C. Oldjuk meg, hogy egy adat begépelésekor csak számjegyeket 
olvasson be a programunk! 
Programok neve: 343C, TIZEDES 

A számjegyeket egyenként olvassuk be, megvizsgáljuk és 
összefűzzük egy karakterlánccá. A SZÁM$ változó kezdőértéke az 
"üres karakter" lesz. 


ig REM -—-- számok beolvasása ——— 
29 CLS:SZAMSz"" j 

59 FRINT AT 3,5,"Kérem a számot: " 
69 PRINT AT 3, ,29-4I,X$; 

79 GET Xx$£ 

89 IF ORD(X$)t513 THEN 110 

99 IF XECZ"R0" OR X£2"929" THEN 70 

100 SZAME-SZAMSZ2X$:I5SItri:GOTO 609 

119 SZAM5SVAL (SZAMZ) 

129 FPRINT AT 6,19,"Négyzete—"; SZAM" 2 


e./ Hogyan lehetne a tévesen beírt számjegyet törölni? 


D. Készítsünk programot, amivel egy, tizenhatos számrendszerben 
adott számot (hexadecimális szám) tizes számrenszerbeli számmá 
alakítjuk (decimális szám). 

Program neve: 3430 


A hexadecimális számok 9-nél nagyobb számjegyeit A,B,C,D,E és F 
betűkkel jelöljük. 


19 REM --—-— h-d átalakitás ——— 
29 CLS:INFUT PROMPT"Hexadecimális számz" 


39 D-0O 

49 FOR I5si TO LEN(X£) 

59 XZORD(X£$(I)):4V-0o 

69 IF X2b565 AND X--79 THEN X-X-—-SS:V5si 

709 IF X2--48 AND X£-57 THEN X-XxXx-—48:4V-1 

89 IF V-B THEN V:Z2Z:I-LEN(X£) 

99 D-164tD-4X 

199 NEXT 

119 IF V-2 THEN FRINT "rossz számjegy! ":E 


129 FRINT "Decimális számrendszerben: ";D 


E. Írjunk fel egy decimális számot hexadecimális alakban! 
Programok neve: 343E,ATIRAS 


Az átszámítás algoritmusát a 2. fejezetben megtaláljuk. Az 
osztások maradékai adják a számjegyeket. A 9-nél nagyobb 
számjegyeket kell átalakítani A,B,C,D,E vagy F karakterré, ezután 
a számjegyeket összefűzzük egy karakterlánccá. 


2.50 


13 REM --- d-h átalakitás ——— 
pe CLS:INPUT PROMFT"Decimális számz":D 
39 HA-"" 


49 0-INT(D/16):WVM5D-i64t0a 

59 IF M2519d THEN M-M-5SS:ELSE M-M-48 
62 HEZCHRAE KC(M) 2.HEE 

79 D5SO:IF D-A2-9 THEN 40 

829 PRINT "Hexadecimális alaksz ":H3 


F. Hogyan lehet kis helyre hosszabb szöveget írni? 
Program neve: 343F 


A szöveg, amit kiíratunk a programmal, maximálisan 32 karakterből 
állhat. Ezt a DIM utasításban megadtuk. Az ablak hossza legyen 
kisebb a karakterek számánál. 

Az első L karaktert kiíratjuk (60-as sor), és az első karaktert a 
karakterlánc végére tesszük (78-es sor). Ezek után kiíratjuk a 
karakterlánc első L karakterét, é.i.t. 


19 REM " ——— abiak ——- 

29 CLS:DIM Wásxrz2Z 

39 INFUT FROMFRFT"Szövegz":Ws 

49 INPFUT PROMPFT"Ablak hosszas": 
59 CLS:Wi-Wszz rt o" 

60 PRINT AT 12,16-L/2,W$SC(23L) 

70 WE-WE(Z2:)2WgC (1) 

80 FOR I-1 TO 200:NEXT 

979 043-INKEYs$:IF 03-"" THEN 60 


3.4.4. Indexes változók 


A. Számoljuk meg, hogy egy karakterláncban hányszor ismétlődnek a 
magyar ábécé betűi! 
Program neve: 344A 


Z9 CLS:DIM.ME$RI1DD,T(5S6) 

29 INFPUT PROMFT"szöveg: ":ME 
40 FOR Iz1i1 TO LEN(MZ$) 

59 L-ORD(Má(I))-—97 

6090 T(L)-T(L)-1 

79 NEXT 

39 REM —--- kiiratás ——— 

99 CLS:L-B 

109 FOR 1-9 TO 34 

119 IF I-26 THEN L-L-21 

129 L-L-H1:J—-INT(I/5) :K-I-S4J 
159 PRINT AT IJt1,6tKHF1,CHRE(L49G) "ZT TEL 


149 NEXT 


B. Gépeljük be a következő játékprogramot! 
Programok neve: 344B KEVER 


SG 


19 REM --—- betük keverése ——— 
29 CLS:DIM US3A3Z2Z As(ZZ) 
39 INPUT PROMPT"Szó(max.Z2 betü) ":wWs 
ay ! 
49 REM mi hatük ——— 
59 FOR 1-1 TO LEN(W2z) 
62 AX(I)tWs (I) 
79 NEXT I 
zZ7 1 
9827 REM —--- keverés ——— 
79 RANDOMIZE 
199 FOR Izi TO 50 
1129 R-RND(LEN(W$) ) 1: SzRND(LEN(W3))-r1i 
129 T$-AZ(R) : AZ(R)—ASZ(S):A3(S)—T3: 
158 NEXT 
, 


149 REM -—-—— összefüzés ——— 
159 S3z-"" 

169 FOR I-zi TO LEN(W£E) 

179 S£z-ZSZAFCKI) 

189 NEXT 

189 ! 

199 REM men kiírás ss 
2909 FRINT S£ 


C. Rendezzük ábécé sorrendbe az angol ábécé betjúivel megadott 
szavakat! 
Program neve: 344C, MAGYAR 


Két karakterlánc összehasonlítása úgy történik, hogy az első 
karakterrel kezdődően egymás után összehasonlítja a számítógép a 
karakterláncok karaktereit. Ha az összehasonlítás során a két 
karakter kódszáma nem azonos, akkor azt a karakterláncot tekinti 
"kisebbnek" amelyikben a kisebb kódszámú karaktert találta. 

Akkor, ha az összehasonlítás során valamelyik karakterlánc végére 
ért, akkor a rövidebb lesz a kisebb. Ezt elkerülhetjük azzal, hogy 
a szavakat kiegészítjük szóköz karakterekkel (789-es sor). 


19 REM -—-——- sorbarendezés ——— 
29 CLS:INFUT PROMPT"A szavak számas":N 
Ss0 DIM AZ(N) k2ZD,T$EZD 
40 KEM -—— beolvasás —-—— 
59 FOR I5-i TON 
60 INFUT PROMFT STRE(I)2".s"zASC(I) 
70 A3(I)-A3(I)RSTRINGE(29-LEN(AS$(I)) , I2) 
89 NEXT 
99 REM ——— rendezés ——— 
109 FOR Iz 1 TO N-1 


119 : FOR JSsI4t1 TON 

120 s: IF AZ(I)-ZAF(J]J) THEN 149 

150 s: T$SZAXC(I):AFC(I):-AF(I):AFX(IJ)-TE 
149 : NEXT 

159 NEXT 

160 REM -——— kiirás ——— 


179 CLS:S:FOR Isi TON 
189 FRINT AZC(I) 
199 NEXT 


Sa öss 
3.5. Színek 


A GRAPHICS utasítással állíthatjuk be, hogy kétszínű, négyszínű, 


vagy tizenhatszínű képernyőt akarunk használni. 


A. Vizsgáljuk meg, hogy milyen színeket ismer a számítógépünk! 


Programok neve: 359Al,354A2 


19 REM -tizenhatsziíinü képernyőö-— 

29 GRAPHICS 16:SET BORDER 71 

39 FOR I-9g TO 15 

49 READ SZIN 

59 SET INK I 

69 PRINT AT I-F8,1i,Iz"7" — "5SZIN8S; 

79 NEXT 

89 GET: GRAPHICS 4 

199 REM —-—-— szinek. ——— 

1129 DATA fekete,sötétkék, sötétvörös 

129 DATA sötétbibor, sötétzöld, sötétcián,s 
ötétsárga, szürke 

139 DATA fekete, ,kék, vörös 

149 DATA bibor,zöld,cián, sárga 

159 DATA fehér 


19 REM — négyszíinü képernyő — 

28 GRAPHICS 4:SET BORDER 21 

39 FOR I-9g TO 15 

409 READ SZIN$S,SKSZPRINT AT I52,10,Kk;" — " 


sa. 


59 NEXT 

60 PRINT AT 19,5,"Kérem a kódszámokat!" 

79 PRINT AT 21,4,:INPUT FROMPT "SET FALE 
TTE ":K1,k2,KS,K4 

39 PRINT AT 19,51.,STRINGSE(Z7,B8) 35" "SET PAL 
ETTE ":STRE(KIlS" "s. ISTRE(KZIS ; ESTREXKOI g 
ga STREXLK4I 


92 PRINT AT 2154.5STKRKINGECS52DIz" Az ás 
ás szines:"s; 
199 PRINT AT 23,4,"SET INK "::GET A£$ 


1190 IF AZ-Z"9"7" OR AZ-"5"3"7" VHEN 80 

129 PRINT A$z3": "sz 

153 PRINT AT 21.951. STRINGE(SO, 9; " A há 
ttér szinesz"; 

149 PRINT AT 25,155 "SET PAPER "::GET B$ 
100 IF BESZ U OR BSZ ZSZ" THEN 1za 

162 PRINT BE; :W-0D 

179 SET PALETTE. Ki: KZ.KöőövE4 

189 SET INKI. VAL (A$):SET FAPER VAL (BE) 

199 GET: GRAPHICS 4 

3099 REM ——— szinek ——— 

319 DATA fekete,D,sötétkék ,l,sötétvörös, 4 
sz DATA sötétbibor, S, ,sötétzöld, ló, ,sötéte 
ián, 17 ,sötétsárga, 20,szürke,7Zi 

323 DATA fekete,6ól3 kék, 5, ,vörös,68 

3490 DATA bibor,69,zöld,80,cián,81,sárga,8B 
a 

3590 DATA fehér,85 


E 


Tizenhatszínű képernyő esetén a SET INK utasítással a rajz, a betű 
színének sorszámát adja meg. Lásd a Mellékletet! 


a./ Töröld az első programból 118-es és a 1200-as sorokat! Hogyan 
oldanád meg a feladatot a megmaradt adatokkal? 


Négyszínű képernyőn a SET PALETTE utasítással adjuk meg a 
színeket. Itt soroljuk fel azoknak a színeknek a kódját, 
amelyeket használni szeretnénk. A SET INK és a SET PAPER 
utasításokban a kódszámok sorszámára hivatkozunk. 

Új színkódok megadásával a színek az egész — képernyőn 
megváltoznak. 


b./ Próbáld ki a második programot a GRAPHICS 2 utasítással is! 
Mit tapasztalsz? 


c./ Milyen utasítások vonatkoznak a színekre? 


B. Rajzoljunk nemzetiszínű zászlót! 
Program neve: 358 
14" REM 55 gászla —— 


29 GRAFHICS 4 

39 SET PALETTE 68,85,8090,21 

35 REM piros, fehér, ,zöld,szürke 

40 SET PAPER 3S:SET INK B:CLS 

59 PLOT 399.,590; 709 , 599 ; 700 , 890 ; 3904 , 800; 


69 FLOT 300 , 609 ; 790 , 6900 

709 FLOT 5909,7090;700,700 

89 PLOT S00,750,FAINT 

99 SET INK 1i:FLOT S00,650,FAINT 
199 SET INK 2:PLOT S00,550,FAINT 


129 SET PALETTE 989,85,68,2Z1 
C. Írassunk ki villogó szöveget a képernyőre! 
Program neve: 35C 


19 REM --- villogó kiirás ——— 
15 GRAFHICS 4 
29 INPUT PROMPT"7A szöveg: ":0£ 
39 SET PALÉTTE 68,85,89,71:CLS 
40 1I1-172:GOSUB 2090 
529 GRAFHICS 4:END 

, ü 


209 REM -—- villogtató szubrutinmn — 

219 SET PFAPER 1-V:SET INK V 

2209 PRINT AT I,17-LEN(C£) /2, as 

239 FOR T-i1i TO 320: NE- XT 

249 V51—-YV:WS-INKEYs:IF Ws-" "" THEN 7210 
250 RETURN 


SOSÁr is 


3.6. Hangok 
A. Szólaltassuk meg a zenei hangokat! 


Program neve: 36A 


A hangmagasságot a PITCH utasításban adjuk meg egy paraméterrel. 
A paraméter ismeretében kiszámíthatjuk a hang frekvenciáját (60-as 
sor). 

A következő hang ffekvenciáját úgy kapjuk meg, hogy 2A(1/12)-nel 

(tizenkettedikgyök kettő) szorozzuk az előző frekvencia érteket. 
Ebből a paramétert a 1208-as sorban számítjuk ki. 


12: REM s Skála 5——— 

29. CLS:Ss5Sr:DIM HSEC12) 42 

39 FOR I-9 TO 11:KREAD HEáA(I):NEXT 

49 PRINT AT 3,3,"PITCH paraméter frekve 
ncia" 

529 1I-9:F-11090:REM FITCH paraméter 

60 F-1955312.5/ ( 4996-—-P) : REM frekvencia 

70 IF SZ22 THEN PRINT AT 5,1,STRINGS(Z2,2 
5) :Sz21 
89 FI-INT(FRF-O.5):F1-INT(19xF4O.5S) /10:KREM 
kerekités § 
929 IN-I—-i12xINT(I/12):REM maradék 
199 PRINT AT S,6,PI1I:TAB(16);HSE(INI ; TAB(ZZ 
5F1:Ssz93rz 
119 SOUND FPITCH PP, VOLUME 1 
120 F-FAX27(1/12):REM következő hang 
139 P:49096-—-1953172.5/F 
149 IF F-Z4059 THEN GET:I-Iti1:GOTO 70 
2990 REM szea hangok. ss 
219 DATA G,HGJA,HAJLH, CC, HO,D,HDJE,F, HF 


e 


Hang P FE P F P F 

2603 138.§ 3398 261.6 3723 523.3 

HC 2697 138.6 3371 277.2 3744 5994.4 
D 2766 146.9 3431 293.7 3763 587.4 
HD 2841 195. 3468§ 311.1 3792 622.3 
E 2911 .164.§ 3584 329.6 3888 699.3 
F 29775 174.6 3937 349.2 3916 698.5 
HF 39848 195.9 3569 378.08 3932 7406.8 
G 31988 196.0 3598 392.0 3847 794.0 
HG 3155 2987.7 3626 415.3 3861 8308.6 
A 3299 2209.0 3652 449.0 3874 2898.9 
HÁ 3258 233.1 3677 466.2 3887 932.4 


H 3385 247.0 3781 493.9 3998 997.2§ 


za SB 4 
8. "Zongorázzunk" a billentyűzeten! 
Program neve: 36B 


A megfelelő billentyűkhöz hozzá kell rendelni a megfelelő hangot. 
A billentyűket úgy választottuk ki, hogy azok elhelyezkedése 
hasonlítson a zongora billentyűinek elrendezéséhez. 


18 REM szeme SE EFAGENT EK 

29 CLS:DIM B(25S5) ,KE(Z255) a2,Zz(2na) ,T (2009 
) , Hi: (200) 42 

39 FOR I-Og TO 172 

420 FRINT AT Z,6, "Hangok és billentyüűk":F 


an FOR i5sú TO 17 

60 READ WE,F,BE:FRINT 4.8 

70 B(ORD(E$) ) eP:KE(ORD(BH) 

880 NEXT 

84 ! 

örREM özmm ]eajátszási S—s 

ea PRINT TAT 7.3, Lehet játszani! "SPRINT" 
A RETURN billentyű lenyomásával jelezzük 
a végét. ":FRINT 

102 F-4095:Z(0)-F:I-B 

119 OCSzZINKEYSz:IK Os$-i:-"" THEN 140 

120 SOUND VOLUME . 15 BURAT ION 25FEITCH F 

150 TÍíSTÉi€tiaiF TIL256 THEN: LA ELSE ENG 
149 IF B(OKDC(CO$)?-R? AND ORD(OE)- IZ THIZN 


Wá;7— S; Bs; 
) WE 


159 T(ID):TI:TI-03:F-B(ORD(O$)):Z(Ir1)—F: Iz 


1609 FRINT KE (ORD(O£$) 2-8 577" 35 :F5B(ORDÁO3) ) 
170 IF ORDCOFIT IS THEN 1108 

p Úsz dea 

1890 REM ———öÖöÖöszajátszás ——— 

199 FOR J-Og TO I-1 

200. SOUND. ; VOLUME 15DURATION T (Ja ,PITCH:Z 
(€J) ; DURATION S, ,FITCH 4095 

Sza NEXT:SFPRINT 

Pelé áll 

3090 REM ges mg ak (nhet hel les ggei 

310 DATA C,S3547,6, CH, 533971,0,D,34519,5.DtH,3 
adB d ESZSOZ ds E 3557. waFt, SZ6B.,a 

229 DATA gaSS7A enat st A a ÖS BANÁN S 
SZZ Ash SZOL EPE, SZZSg 


2 66 e 


C. Befejezésül a miskolci avasi templom harangjátékát szólaltatjuk 
meg. 


Programok neve: 36C,AVAS 


A hangokat olyan formában kell megadnunk, hogy ne okozzon gondot a 
kotta alapján a hangokat meghatározó kódok beírása a DATA-ba, egy 
karakterláncba, vagy indexes változókba. 

Mi most a DATA mellett döntöttünk. Ide írjuk a hangokat 
meghatározó kódokat. 


időtartam: T1 - egész hang, 

T2 - fél hang, 

T4 - negyed hang, stb. 
hangerő: V7 - 7-es hangerő. 
hangmagasság: CO ,Cád,DO, stb. -alsó skála 

C1,Cal1,Ol, stb. -középső skála 

C2,C3s2,02, stb. -felső skála 


A kódolást rábízzuk a számítógépre. 


19 REM -—— avasi harang játék ——-— 
zo CLSzDIM PC(CI3) ,HSC1i15) 42 
Bev REM ———fhHanóiao 


49 F5:246.94:FOR I-1 TO 17 

59 FsFA25"(17/12) 

69 PCI) -49096—-195S3Z12.5/F 

79 READ HE(I):NEXT 

829 REM ———— zene ——— 

92 FOR Imi TO 16 

199 READ Wz 

119 J—-1i - 

12090 IF H3(J)Ca-Ws THEN Jb-J-4Hi:GOTO 1209 
130 T-25 § 

149 IF I-8 OR 11-16 THEN T-50B 

1509 SOUND ; VOLUME 1,DURATION T,PITCH P(J) 
169 NEXT 

2099 REM —--—- skála ——— 

219 DATA C,HC,D,HDSES,F,HF,G,HGLA,SHASH,C" 
2229 REM —--—- dallam ——— 

230 DATA C" Aa, F,D,H,G.E,C 

240 DATA D,E,F,A,G,H,C",C 


SíST 


4. Feladatok megoldása 
1. Számítógép kezelése 
1.1. A billentyűzet 


a./ A program leállítása a ETRL és a ESC billentyűk egyidejű 
lenyomásával, vagy A RESET nyomógomb (jobb oldalt alul) egyszeri 
benyomásával történhet. 

A — RESET — nyomógomb kétszeri benyomásával , a számítógép 
alapállapotba kerül. Ekkor a program törlődik. 


6./ - Ha a LIST parancsra nem ír ki minden begépelt sort, a 
RETURN billentyűt nem nyomtad le. 


- Ha két sort ír ki a számítógép hibajelzéskor, akkor két sort 
egybe gépeltél. A számítógép automatikusan sort emel, amikor a sor 
végére ér. Ilyenkor elfelejtkezünk a RETURN lenyomásáról. 


- Nem írtál, vagy felesleges írtál "szóköz" karaktert 
valahová. 


- B (nulla) helyett 0 betűt írtál. 


c./ Az előzőleg beírt, azonos sorszámú sor helyére ez az 
utasítássor kerül. 
Akkor, ha csak a sorszámot írjuk be, ez a programsor törlődik. 


1.2. Programok kezelése 
a./ Lásd 1.1.a feladat megoldását 


b./ Utólag be kell gépelni a programsort olyan sorszámmal, amilyen 
nem szerepel a programban. Ezért célszerű "szellősen!sorszámozni a 
programsorokat . 


c./ ún. "nyomkövetés! történik. A számítógép kiírja azoknak az 
utasítássoroknak a sorszámát, amelyeket végrehajt. 
A "nyomkövetést" a TRACE OFF paranccsal lehet megszüntetni. 


d./ A program leáll. 


e./ A számítógép a kazettáról beolvassa az ISKOLA nevű programotp, 
ha megtalálta a szalagon. 


f£f./ A szalagot visszatekercseljük a program elejére, kiadjuk a 
VERIFY parancsot és elindítjuk a lejátszásra állított magnetofont. 
Ez a parancs a számítógépben lévő programot összehasonlítja a 
szalagra kiírt programmal . 

9./ A program — nevében nem szerepelhet hosszú magánhangzó. 


2.1. Kiírás képernyőre 
2.1.1. Számok és karakterláncok kiírása 


a./ Az első paranccsal "tizedespontos" számokat írunk ki. A vessző 
helyett pontot használunk a tizedesszámok írásakor.A számok tehát: 
-34,56;455, 789 5-0.912 

A második parancsban "lebegőpontos" alakban adtuk meg a számokat. 


Esöv- : E 


- ) 
294.407"; 409; -0,0042 407; 6.67 40" 


A képernyőn csak azok a számok jelennek meg lebegőpontos alakban, 
amelyek leirásához tíz számjegynél több szükséges. 
b./ 


PRINT -5,—-4,—3,—2,-1 
FRINT —-S;-—-45—35—25—1 


Csak egy szóköz karakter választja el a számokat egymástól. 
Pozitív számok esetén, miután nem írja ki az előjelet, két szóköz 
lesz közöttük. 

Esz 


.... 


PRINT "raáeéiiosóöőöü ü 
PRINT TAKXKEÉEBIZODOGÖBŐÜŐBŐB 


d./ "Írd ki a PRINT szó után felsorolt számokat! Pontosvessző 
esetén egy szóközt hagyjál ki és úgy írd ki a következő számot. Ha 
vesszőt találsz, akkor a 9.,17., stb. karakterpozíción folytasd a 
kiírást, attól függően, hogy melyik következik!" 


2.1.2. Változók 
a./ Kisbetűkkel is elfogadja a parancsokat a számítógép. 
b./ A karakterláncban, az idézőjelek közé írt karakterek esetében. 


c./ A karakterlánc-változók nevének végén $(dollár) jel van. A 
karakterláncokat stringeknek (ejtsd:sztring) is nevezik. 


d./ - Az első karakter csak az angol ábécé valamelyik betűje 
lehet. Máshol lehet számjegy és hosszú magánhangzó is. 

- A változó neve nem kezdődhet olyan szóval, amelyet a BASIC 
nyelvben is használunk. Ezeket a szavakat kulcsszavaknak nevezzük. 
Például: PRINT, AT, PLOT,OR END, stb. 

(Van amikor az értékadásnál nem jelez hibát a gép, csak akkor ha 
ki akarjuk íratni a változó értékét.) 
Program: TOKEN 


8.7 
OSZLOFP-Z2 
PRINT AT 19,OSZLOF, "BASIC" 


Az OSZLOP változó értékét kell növelni. 
A BASIC szó elé írj egy szóköz karaktert. Nézd meg mi történik! 


f./ GRAPHICS 2 : 1€z OSZLOP €-64 
GRAPHICS 4 : 14- OSZLOP €-32 
GRAPHICS 16 : 1€z OSZLOP €-16 


A sorok száma mihdíg 24. 
g./ Mindkettő törli a képernyőt. A CLS nem állítja át a betűk mére- 


Tét. 


h./ "Az egyenlőség baloldalán álló változó vegye fel a jobb 
oldalon megadott értéket!" 


2 BO a 
ász 


PRINT AT 172, 190, 8ededt atát at at 9 are araba at "og 
FRINT AT 15,19, "MAGYARORSZAG A " : 
PRINT AT 14919, ööEREREBE RHB E 2t 26 36 9F 96 969E TT 


Készítsük el a keretet grafikus karakterekből is. Miközben 
lenyomod a számjegy billentyűket, tartsd lenyomva a  CIRL 
billentyűt. 


2.2. Számolás 


2.2.£k. Számok 

a./ szorzás: x (csillag) 
osztás: / ( per) 
összeadás: -t (plusz) 
kivonás: - (minusz. 


b./ Lásd a 2.1.1/a feladatot 
c./ Lásd A 2.1.1/d feladatot 
2.2.2. Változók 


A./ Nem. Ha csak az egyik oldalt változtatjuk, biztos, hogy a 
háromszög nem lesz derékszögű. A terület értéke hibás lesz. 


b./ Lásd 2.1.2/b feladat megoldását! 


e. 
AZz1ZS:B5:137.5 


PRINT Z23$(APB) , AtB 


PRINT 2rAF2HB,AHB 


2.2.5. Függvények 


kal KZDIKADT KÉZI Z2ZÉEK SZEKÉR 
BZ 

FRINT INT(12.87-0.S5S) , INT(6.5S2ZrO.5) 

PRINT INT(19r12.87-4-0.5)/10 

PRINT INT(1946.32-40.5) /10 
ö./ 


X1-354.67:X25—4.56 


PRINT ABS(X1-—-Xx2) 


2 0 - 
2.3. Grafika 


2.5.1. Pontok, szakaszok 


a./ A pontokat, szakaszokat ugyanott látjuk a képernyőn mint a 
GRAPHICS 4 parancs után. A pontok kisebbek ill. nagyobbak, a 
vonalak vékonyabb, ill. vastagabbak lesznek. GRAPHICS 2 parancs 
után az ábrák fínomabbak, GRAPHICS 16 után durvábbak lesznek. 


b./ A képernyő négy sarkában elhelyezkedő pontokat kell 
összekötni. Ezek koordinátái: 
bal felső: 9,959 jobb felső: 10825,959 


BAL alsó: 8,0 jobb alsó: 1823,0 
c./ (0,0) kezdőponttal, (408,608) véponttal, egy szakaszt rajzol. 


Bekapcsoláskor a "ceruza" azaz a grafikus kurzor a (8,0) pontban 
van. 


d./ Csak a háromszög belsejét nem festi be. 


e./ 14 féle vonal lehet. A SET STYLE utasítás paraméterét kell 
megváltoztatni. Legyen az értéke 1,2,...,14! 

f./ A CLS az eredeti háttérszínnel, vagy azzal a színnel törli a 
képernyőt amilyenre a SET PALETTE utasítással beállítottuk a 
nátteret. 

A GRAPHICS paranccsal a megfelelő betűméretet, a  orafika 
finomságát és a színek számát is megadjuk, miközben a képernyő 
törlődik. 

A színekről a 2.5. fejezetben lesz szó. 

9-/ A kiírás oda kerül, ahová a PLOT paranccsal a ceruzát 
helyeztük. 


2.4. Karakterláncok 
2.4.1. Karakterlánc-műveletek 


a./ Alaphelyzetben csak 18 karakterből álló karakterláncokat hasz- 
nálhatunk. Adjuk ki a DIM B$ 3k- 38 parancsot! 
Ekkor a változó hossza 38 karakter lehet. 


2.4.2. Karakterlánc-függvények 


a./ Törli a képernyőt! A soronkénti törlés így azt a látszatot 
kelti, mintha a képernyőtartalom felfelé mozogna és "lemenne" a 
képernyőről. 

Program: MOZGAT 


b./ Az első nem számjegy karakterig értelmezi a karakterláncot. 
Kivételek: 

- lebegőpontos alakban adott szám (második parancs) 

- előjel (negyedik parancs) 


c./ Az eredmény -3, tehát a karakterlánc hossza 2. Az előjelet is 
figyelembe veszi. 


d./ A két parancs ugyanazt az értéket adja! Írassuk ki a két 
számot! 


- él - 


2.4.5. Karakterek definiálása 

a./ ALT és a 0, ill. az ÁLT és az "a" biillentyűket kell lenyomni. 
2.5. Színek 

a./ A 64-el nagyobb kódszámú színek világosabbak. 


b./ A SET INK paranccsal a "ceruza" azaz a pontok és vonalak, 
valamint a betűk színét, a SET PAPER a "papír", vagyis a háttér 
színét állítja be. 

A SET PALETTE parancsban adott színek közül az elsű kettő lesz 
érvényben. 


c./ A CLS paraccsal. 

d./ GRAFHICS 16 
SET PAPER 13:SET INK O:CLS 
FLOT 380, 490; 700 , 490; 522 , 600 ; 389 , 400 
SET INK. Z:FLOT 490,450,PAINT 


GRAFHICS 4 

SET PALETTE 81,9,68,7 

SET FAFER 0:SET INK  1:cls 

FLOT 389 .,490: 790 , 490: 520 , 690 ; 380 , 490 
SET INK Z2:FLOT 490,450,FAINT 


3. Programok 
3.1. Kiírás a képernyőre 
3.1.1. Változók 


a./ Vagy újból beírod a sort, vagy csak a képernyőre kiírt program 
10-es sorát változtatod. 
A RETURN billentyű lenyomásáról ne feledkezz megl 


b./ Az OSZLOP változó értékét kell módosítani. A sorok száma 
mindig 24. 


c./ A 30-as sorba, az idézőjelek közé kell írni a nevet, és a 
48€-es sorból az 19837-t törölni kell. 

Írasd ki a programot és a kurzor mozgatásával,a DEL és INS 
billentyűk segítségével, írd át ezeket a sorokat. A módosítások 
után nyomd le a RETURN billentyűt. A kurzor lehet a sor közepén 
$5. 


d./ 24 sor és soronként 
GRAPHICS 2-nél /két szín - kis karakteres/ 64 karakter 
GRAPHICS 4-nél /négy szín - normál karakteres/ 32 karakter 
GRAPHICS 16-nál /tizenhat szín - nagy karakter/ 16 karakter 


e./ Lásd 2.1.2.d feladat megoldását. 


f./ Azért jó, ha "szellősen" programozunk, mert így utólag is 
beírhatunk újabb utasítássorokat a meglévő utasítássorok közé. 


9./ K - 22,4 vagy 16 

SOR - 9(SORC-24 
OSZLOP - nem vehet fel nagyobb értéket, mint amennyi karakter egy 
sorban elfér és nem lehet negatív. (8-t vizsgáld meg!) 


sed e 
Lásd a 3.1.1/d feladatot! 


h./ Írd be a programba! Lásd 2.4. fejezetet! 


89 PRINT AT SOR-41,OSZLOP,STRINGS(LEN(G£$) 
,.435) ii 


i./ - utasítások elválasztásakor 
- INPUT PROMPT utasításban a kiírandó szöveg után 
- PRINT USING utasításban a formátum után 
- ELSE utasításszó előtt 


j./ Az INPUT utasítás ?(kérdőjel) kiírással jelzi, hogy adatra 
vár. Az INPUT PROMPT utasítással szöveg is kiíratható. 


3.1.2. Vizsgálat 
a./ Több szín esetén nagyobbak a betűk. Lásd a 3.1.1/0 feladatot! 


b./ "Ugorj a megadott sorszámú sorra, és folytasd ott a program 
végrehajtását!" 


c./ A GOTO utasítások elhagyhatók és át kell írni a 22-es sort. 
22 IF K-0 THEN 18 

Oldd meg a 3.2.3/d feladatot! 

d./ Lásd a 3.2.3/c feladat megoldását! 

e./ Nézd meg a 2.5. fejezetben! 


f./ Megáll a program futása és vár egy billentyű lenyomására. Az 
A$ változó értéke az a karakter lesz, amelyik a billentyűt 
lenyomtuk. 


g./ Értékétől függően, rajzol, vagy töröl a program. 


h./ Előállítja azt a karaktert, amelyiknek a kódszámát a 
zárójelben megadjuk. 
Lásd a 2.4. fejezétet. 


i./ Semmi. Egyik reláció sem teljesedik, a program újabb karaktert 
vár. 

j./ Új karaktert alakíthatunk ki (definiálunk.) 

A SET CHARACTER utasítás után az első szám a karakter kódja, 
aminek 127-nél nagyobbnak kell lennie. 

A többi számmal a karakter pontjait adjuk meg. Írd át a számokat 
kettes számrendszerbe, és írd egymás alá. Látni fogod, hogy milyen 
lesz a karakter. 


k./ 1.- GET - addig vár, ameddig le nem nyomunk egy billentyűt. 
INKEY$ függvény értéke az a karakter lesz, amelyik 
billentyű le van nyomva a függvény végrehajtásakor. 
Akkor, ha nincs lenyomva egy billentyű sem, az  INKEY$ függvény 
értéke az "üres karakter", és a program fut tovább. 


2.- Olyan karakterlánc, amelyik nem tartalmaz karaktert — (üres 
halmaz). 
Jelölése: két idézőjel egymás mellett 

3.- Lásd 3.1.2/h feladatot! 


1./ Egészítsük ki a programot a következő vizsgálatokkal! 


SAES a 


IF ICi THEN 120 
IF JCi THEN.420 
IF I224 THEN 1209 
IF J264 THEN 120 


CLS:FPRINT "Pontok számaz"; PONT 


3.1.3 Ciklus 


a./ A GET utasítás egy billentyű lenyomását várja, Így nem jelenik 
meg az a program befejezését jelző "ok" kiírás. 
A cikluson kívűli PRINT utasítás után pontosvesszőt teszünk, hogy 


ne legyen 


B.Z 


E./ 


soremelés. 


CLS 

1-1 

PRINT I:"Borsod" 
I5I-1 

IF Ic24 THEN 50 
FRINT I;:;"Borsod"; 
GET 


ces 
124 


PRINT AT I,129,25-—-I;: "Borsod"; 


Iz1—1 
IF I50 THEN 30 
GET 


CS 

Iz23 

PRINT AT I,19,"Borsod"; 
PRINT AT IRI5ÍD," BZ] 
ÍmTIsi 

IF I-0 THEN 30 

GET 


d./Annyival kell növelni a ciklusváltozó 


karakterből áll a neved. A LEN függvény 


adja meg. 


GRAFHICS 4 

INFUT FPROMPT"Nevz":NÉVE 
CLSsIz1 

PRINT AT Íí29157" "s95NÉVS 
I1-IHLEN(NÉVE) 4-1 

IF I-(32 THEN 30 


e./ A lépésköz 2, vagy -2." 


a karakterlánc 


amennyi 
hosszát 


f./ A REM után bármit írhatunk, a számítógép nem veszi figyelembe. 
Ugyanez történik a felkiáltójel esetében is. Az utóbbi csak ezen a 


gépen igaz. 


0 ől, áz 


Így írhatunk a programokba magyarázatokat; és áttekinthetővé 
tehetjük a programot. 


g./ Egészítsük ki a programot! 
5 GRAFHICS 16 


25 SET CHARACTER 139,2,9,9,29,29,126,67,12 
6,49,16,0 


40 PRINT AT 15,I," "5CHRS(130);:CHRS(128) 
;CHRS(129); 


Írd be ezt a programot is! Mit Látsz? 
Program: F3136 


5 GRAPHICS 4 

25 SET CHARACTER 132,9,9,90,9,0,126,67,12 
6,4029,16,0 

26 SET CHARACTER 131,28,28,28,8,12,62,62 
,28,54,99 

27 SET CHARACTER 132,28,28,28,8,62,93,93 
. 28.28.28,28 

39 FOR I-i1 TO 351 

4Z PRINT AT 15,I," "5CHREC(131); 

45 FÓR Tzs1 TO 190:NEXT 

47 PRINT AT 15,I," ":;CHRS(152); 

49 FOR Tsi TO 199:NEXT 

52 NEXT 


h./ A PLOT utasítással azt a pontot jelöljük ki, ahová a karaktert 
ki akarjuk írni. Ilyenkor a PRINTAÓ utasítást kell használnunk. 
Így jelezzük, hogy a képernyőre akarunk írni. 


5 GRAFHICS 16 

109 SET CHARACTER 128,9,9,31,16,112,64,12 
7,22,8,0 

29 SET CHARACTER 129,9,9,224,16,14,2,254 
.49,16,0 

39 FOR X-9Z TO 1909 STEP 8 

49 PLOT X,400,:FPRINTHO," ";CHREC(128);CHR 
$(129) 

SZ NEXT 


i./ Az adatokat valahol meg kell őrizni, ha azt akarjuk, hogy a 
képernyőn csak a diagram legyen látható. 

Indexes változókat használunk. A változó neve után zárójelben 
adjuk meg az indexet. Az indexként használt változó értékével 
jelölhetjük ki, hogy hányadik elemről van szó. 

Először beolvassuk az adatokat, majd kirajzoljuk a diagramot. 
Program: F313I 


Se 


5 GRAPHICS 2 

18 SET CHARACTER 128,129,129,129,129,129 
s 1297, 12799,1297,129,129 

28 SET CHARACTER 129.0255,1297,129,129,129 
s, 1297. 12797. 129.,129.,129 

24 :! 

25 REM -——— adatok beolvasása ——— 

26 CLS:INFUT PROMPT"Adatok száma(max.64) 


27 DIM A(N) 

st 

39 FOR I5-1 TON 

s5 INFUT PROMPT STRZ(I)2".adat:":AC(I) 
36 IF A(I)524 THEN 55 

49 NEXT 


45 REM ——— diagram ——-— 
45 FOR I5-1 TON 


sa FOR Jazz TO Z4-ACGI? HI STEP, -1i 
69 PRINT AT J,I,CHRSZ(128? 


72 PRINT AT J,I,CHR(129) 


89 PRINT AT 1,1 


- Tíz karaktert kell definiálnunk, na tizedenként — akarunk 
ábrázolni. £z megoldható tíz SET CHARACTER utasítással, vagy egy 
ciklussal. 

Program: DIAGRAM 


3.2. Számolás 

3.2.1. Éctékacés 

a./ Írd át a 18-es sort, ahol az A és 35 változáknak 
adtunk! Vagy az egész sort átíroc, vagy zsak az é 


Í3 
változtatoz. 4 sor beírésa ill. módosítása után nyomj le a 
billentyűt! 


5./ Pitagorasz-tétel segítségével a másik befogét kell először 
kiszámítani. 


3.2.2. Adatok bekérése 


a./ Az INPUT utasítás kérdőjel kiírásával jelzi, hogy adatot vár. 
Jegyezd meg, hogy az INPUT PROMPT utasításban a kiírandó szöveg 
után kettőspontot kell tenni. 


BZ 
19 CLS 
20 INPUT PROMPT"Kocka oldala—":A 
39 INPUT PROMPT"Sürüségz":D 
40 VEATZ 
52 M-VAD 
60 FRINT "Tömeg—";M 


a 6é 


c:/ 19 CLS 


29 PRINT AT S3.,6,"Kocka oldala"; 
39 INFUT A 

430 PRINT AT 5S5,10,; 5 
59 INPUT PROMPT"Sürüségez":D 

62 M-ATSRD 

79 PRINT AT 19,1í12,"Tömegez-—m";M 


3.2.5. Vizsgálat 


a./ Akkor fejeződjön be a program, amikor az átfogó nem nagyobb, 
mint a befogó, mivel ez nem lehetséges. 
A GOTO utasítás helyett írj END, vagy STOP utasítást! 


EZ 
z4 IF A-C-D THEN 209 
36 IF C-C-0 THEN 20 


34 IF AC-D OR C-— THEN 208 


A második megoldásban az OR szó a VAGY logikai műveletet jelenti. 
A VAGY logikai művelet eredménye akkor lesz "igaz!, ha legalább az 
egyik !igaz!. 
c./ Relációk: egyenlő 
nagyoob 
kisebb 
£) nem egyenlő 
£- kisebb vagy egyenlő 
£(- nagyobb vagy egyenlő 


xs n 


Logikai műveletek: 


NOT 
művelet eredménye akkor "igaz", ha a reláció értéke "hamis", és 
akkor "hamis!, ha a reláció értéke "igaz!. 


19 CLS:PRINT "igaz-—-hamis"s; 

29 I$-"igaz":H3sz5-"hamis" 

39 INPUT X£E 

490 IF NOT(Xsz"igaz") THEN PRINT I$ :ELSE 


PRINT Há 


AND 
művelet eredménye akkor "igaz", ha mindkét reláció értéke "igaz" 
egyébként "hamis" 
OR 
művelet eredménye akkor "hamis", ha mindkét reláció értéke 
"hamis". 
XOR 
művelet eredménye akkor "igaz", ha valamelyik reláció értéke 
jdr 4 a jedizát 
Próbáld ki a következő programot! A 480-es sorba az OR művelet 
helyett írj be AND vagy az XOR műveletet! 


se tél éz 


19 CLSSzPRINT "i-h"3 
29 INPUT X£,Y$ 
3 I$z"igaz":Híáz"hamis" 
49 IF X$z"i" OR Yász"i" THEN PRINT I3$ :EL 
SE PRINT H$s 


d./ "Ha a reláció, vagy a logikai művelet értéke "igaz", akkor a THEN 
szó után szereplő utasítást hajtsd végre! 

Akkor, ha a vizsgált logikai kifejezés értéke "hamis", folytasd a 
program végrehajtását a következő utasítássorral! " 

Az IF-THEN-ELSE változatot használva: 

"ha a vizsgált reláció, vagy logikai kifejezés értéke "hamis" , akkor 
az ELSE után írt utasításokat hajtsd végre!" 
(Az ELSE szó elé kettőspontot kell tenni!) 


e./ Mindkét utasítás hatására a program megáll. A STOP utasítás 
esetében kiíródik a képernyőre, hogy melyik soron éllt meg. 


f./ HA (IF) A-B abszolutértéke nagyobb mint E értéke, AKKOR (THEN) 
írd ki azt, hogy "nagyobb", EGYÉBKÉNT (:ELSE) azt, hogy — "nem 
nagyobb " ! 


9-/ 19 Cus 


29 INPUT PROMPT"A két számz":A,B 
39 INPUT PROMPT"A szakasz: ":E 

49 IF ACB THEN T-A:A5-B:B—-T 

S59 IF A-—-BC5SE THEN PRINT "mem "s; 
69 PRINT "nagyobb" 


19 CLS 

29 INPUT FPFROMPT"7A két számz":AS,B 

39 INFUT PROMPT"7"A szakasz: ":E 

35 REM segédváltozóra nincs szükség 
49 IF A-B THEN 60 

53 A-At B: B—-A—-B:A-A—B 

60 IF A-—-BAÁA-E THEN PRINT "nem "s: 

729 PRINT "nagyobb" 


id ELS 

29 INFUT PROMPT"A két számz":A,B 
39 INFUT PROMPT"A szakasz: ":E 

4Zg IF A2B THEN K.-A-B :ELSE kKk-B-a 
59 IF KCZ-E THEN PRINT "nem "s; 


69 PRINT "nagyobb" 


Az első megoldásnál a két szám különbségét úgy képezzük, hogy mindig 
a nagyobból vonjuk ki a kisebbet. 

A második megoldásnál kicseréljük a két változó értékét, ha A kisebb 
mint B. A cseréhez egy segédváltozót is használunk. 

Harmadik megoldás: kiszámítjuk a különöséget. 


h./ Határozzuk meg a függvények értelmezési tartományát! Használjuk 
fel a számítógép segítségét! 


SZG: 


19 CLSzINPUT PROMPT"xz":X 
ZO IF Xzü THEN PRINT "nincs értelme": END 
Ss83 PRINT "1/xxm"§17/7X 


A többi függvénynél a relációt és a kiírást kell átírni: X-2, X(0, 
x52 


3.2.4. Ciklus 
a./ A ciklus belsejébe (a FOR és NEXT közé) írd be: 


PRINT XZ:X XXXIX, 1/X, SORCX) 


BZ 
19 CLS:INPUT PROMPRPT"N5":N 
29 PRINT "növekvö(l(i[/n) "3:GET 0£ 
za - PRINT 
39 K-Z: VEZSHINT(N/2):Lzi 
49 IF 03-"7i" THEN 60 
527 K-V:Vs2Z:L5:—i 
69 FOR Isk TO V STEP L 
70 PRINT I 
89 NEXT 
(stl 
19. CLS 


29 FOR I-12 TO 99 STEP 3 
39 PRINT I 
490 NEXT 


d./ Figyeld meg, hogy a ciklus akkor fejeződik be, ha X értéke már 
nem esik a K és V értékekkel adott szakaszra. 


e./ Amikor a lépésköz 1. 


f./ Csak a függvényértékek kiíratását kell a d. feladat programjába 
beírni. 


ag./ 


st Di se 


h./ Annak a változónak a kezdőértéke 1, amelyikben a szorzatot elő- 
állítjuk. 


i./ 1./ Megvizsgálunk minden egész számot 1-től n-ig. 

2./ Azt használjuk ki, hogy a szám felénél nincs nagyobb osztó, 
csak a szám. 

3./ Ha I osztója N-nek, akkor N/I is osztója. 
A ciklus négyzetszámok esetén nem úgy működik, ahogyan azt elvárnánk. 
Próbáld ki a következő programot. 

10 FOR I-1 TO SOR(25) 

20 PRINT I 

30 NEXT 

4./ A számítógép számolási hibáját most másképpen korrigáljuk. 


j./ Az STR$ függvénnyel a maradékot átalakítjuk karakterlánccá és 
azokat fodított sorrendben összefűzzük. 
Lásd a 2.4. és a 3.4. fejezeteket. 


k./ Ugyanazt a véletlenszerű számsorozatot kapjuk minden futtatásnál. 
A RANDOMIZE hatására futtatásonként változik. 


1./ Találjuk ki, hogy hányszor dob "írást" a számítógép. A dobások 
számát úgy számoljuk, hogy egy változó értékét mindig eggyel növeljük. 
Például ha "fej" volt a dobás, akkor végrehajtjuk a F-Ft1l utasítást. 


az 
"7 16 ECLS:RANDOMIZE 


20 FOR I-1i1 TO 17 

39 T- RND 

40 IF TC1/3 THEN FRINT "ii" 

59 IF T51/3 AND TC2/3 THEN PRINT "x" 
60 IF T52/5 THEN PRINT "2" 

709 NEXT 


19 CLS:RANDOMIZE 

29 FOR Isi TO 15 

39 T- RND(3) 

40 IF T-O THEN FRINT 717 
59 IF T-i THEN FRINT "x" 
69 IF T-2 THEN PRINT 72" 
70 NEXT 


3.2.5. Indexes változók 


a./ A DOIM utasítással az index maximális értékét adjuk meg, azaz az 
azonos nevű indexes változók számát. 


b./ N adatot sorba rendez. 

A szomszédos elemeket összehasonlítjuk és ha nem jó a sorrend, akkor 
az értékeiket kicseréljük és a cserét megjegyezzük :0-1. 

Az összehasonlítások végén 0-t vizsgálva eldönthető, hogy történt-e 
csere. Ha volt csere (0-1), akkor újból megvizsgáljuk a sorrendet. Ha 
nem volt (0-8) akkor a sorbarendezés kész. 


töke) : NÉ 
3.3. Grafika 


3.3.1. Változók 


a./ A RETURN billentyű lenyomásával zárjuk az utasítássort. Az Így 
lezárt sorokat a számítógép a memóriájában tárolja, ahonnét a LIST 
parancsal kilistáztathatjuk. 

b./ A GET utasítás azt várja, hogy egy billentyűt leüssünk. A 
program csak valamelyik billentyű lenyomása után fejeződik be, így 
az ábrát nem rontja el az "ok" szó. 


c./ Az INPUT utasítás egy kérdőjel kiírásával, az  INPUT PROMPT 
utasítás a kiírt szöveggel jelzi, hogy adatot vár. 


d./ Program: F3310 


17 REM zs EÉGgI1alap s 
29 CLS:INFUT PROMPT"7A téglalap bal felsö 
pon jának koordinátái" :A1,A2 


309 INFUT FROMFT"Oldalak hosszaz":A,B 
42 GRAFHICS 16 

59 FLOT A1,AZ:A1FA,AZZA1TA, AZTIB; 

609 FLOT A1,AZHB:;:A1, AZ 

79 GET:GKRAFHICS 4 


e./ Tetszőleges elhelyezés esetén 
1./ négy 
2./ hat adat 
f./ 1./ Ismételten megadhatjuk, hogy hová toljuk el a háromszöget. 
2./ Többször elvégzi a prooram az eltolást. 


9./ Egészítsük ki a 7080-es sort az A-28A utasítással! 


h./ Program: F331H 

id REM ——— tükrözés ——— 

29 CLS:FRINT "a háromszög csúcspont jaina 
k: koordinátái" 

39 INPUT FROMPT"A-":A1 AZ 

49 INFUT PROMPT"B-":B1i,R2Z 

58 INFPFUT PROMPT"ECa"5C1.C2Z 

69 GRAFHICS 2 

70 FLOT A1,SAZ:B1,B25C1i1,CZ5A1, AZ 

897 FLOT 500,0;5S909,958:REM tengely 

99 F15-5099- ( 599-—-A 1) : 11-5909--599-B1:R17-1000 


199 PLOT P1,AZ2;:01,B2;R1,C2;P1,AZ 
3.5.2. Vizsgálat 
a./ Például egy PLOT ,3,8 utasítással. 
b./ Lásd a 3.2.3/c feladat megoldását! 


c./ A GET utasítás várja, hogy leüssünk egy billentyűt. Az  INKEY$ 
függvény végrehajtásakor nem várakozik. Azt a karaktert olvassa 
be, am-lyik éppen le volt nyomva. Ha nem nyomtunk le billentyűt, 
akkor az értéke az "üres karakter" lesz. 


d./ A CHR$ függvény a karakter kódjából állítja elő a karaktert. 
Az ORD függvény a karakterlánc első karakterének kódját adja meg. 


ES ) él 


e./ Ezek a változók őrzik meg az előző pont koordinátáit. 
£./ Akkor, ha a reláció értéke "igaz". 


g./ Az a cím, ahol a program futása folytatódik, ha a reláció 
értéke "igaz!. Ugyanazt jelenti, mint a THEN szó után írt GOTO 
utasítás. 


53.323... CÍK1US 


a./ A PLOT utasítással kijelöljük a helyet, és a PRINTHOG, 
utasítással kiíratjuk a beosztáshoz tartozó számot. 


19 REM --- számegyenes-z-z2 ——— 

29 CLS:INFUT PROMPT"Egységz":E 

39 GRAPHICS Z2Z:PLOT 19098.,496:PRINTHEO, "2" 
4329 PLOT 0, 489;1906,480, 

580 FOR X-9O TO 470 STEF E 

69 FLOT 599--X , 4855 509-X,475 

729 PLOT 599-4X-—25,469:PRINTHO,XZ/E 

89 FLOT 5909-x, 485; 599-Xx,475 

99 PLOT 59090-X-—-253 , 460:PRINTHO,-X/E 

1099 NEXT X 


b./ A STRING$ függvénnyel előállított szóköz karakterekkel 
töröljük az előző kiírást. 

A PRINT USING utasítással egy tizedes pontossággal Írjuk ki a 
ciklusváltozó értékét. 


c./ A ciklus mindig akkor fejeződik be, amikor a ciklusváltozó 
értéke már nem esik a kezdő- és végértékkel adott szakaszra. 


d./ 


tü REM .——— céltábla s-s 

29 GRAPHICS 2 

39 ÚU-5S00: V:500 

49 FOR I-—-i TO 10 

59 A-2Z9xI:B-—-A:GOSUB 10090 

SZ TF TIZZSSRINTC(I/2) THEN 80 
729 PLOT U-4-A—10,V,FAINT 

89 NEXT 

99 END 


3.3.4. Függvény, szubrutin 


a./ A rajz durvább lesz. 


b./ Kiszámítjuk 
129: a képernyőre eső X értékeket, 
158: X-hez tartozó Y értékeket, 
l4d: az Y értéknek — megfelelő — képernyőpont függőleges 
koordinátáját. (Az 1.4-es szorzó a torzítás miatt kell.) 


c./ Így nem látjuk a képernyő szélére helyezett pontokat. 
d./ A 118-es sort kell átírni. 


SI TÉ ra 


e./ Program:F334E 


399 REM -- metszéspont ——— 

319 IF SGN(FNY(XD-—-FNZ(X))5SSGN(FNY(X12—FNZ 
(X12) THEN 579 

359 SET INK i:PLOT I,J:I,S489:PLOT ,I,J 
369 GzG-t-i:PRINT AT 18-24G6,59,"X"£8STREH(G) 2 
"z":tPRINT USING" Hidtitít. ik": X 

379 SET INK 0:RETURN 


f./ Lásd a 3.35.1./D feladatot ! 
g./ Használd a READ és a DATA utasításokat! 


h./ Program: HALMAZMUV 
Mutasd be programmal a halmazműveleteket! 


i./ Az előzőek alapján már nem lesz nehéz elkészíteni a programot. 
Színezéssel a következő fejezet foglalkozik. 


3.4. Karakterláncok 


3.5.1. Műveletek, függvények 


a./ A PRINT utasításban igen. Az INPUT PROMPT utasítással csak egy 
karakterlánc írható ki, ezért itt össze kell fűzni a két 
karakterláncot. 


b./ LEN - a karakterlánc hosszát, 
ORD - a karakterlánc első karakterének kódját adja meg. 
CHR$ - a karakterkócból előállítja a karaktert. 
VAL - a számjegyekből álló karakterláncból számot képez. 
13 STR$ - aritmetikai kifejezés értékéből karakterláncot állít 
elő. 


c./ LEN,ORD VAL - a függvény argumentuma karakterlánc, értéke 
numerikus adat 

CHR$ STR$ - a függvény argumentuma numerikus adat, értéke 
karakterlánc. 


3.6.53. Vizsgálat 
a./ Lásd a 3.2.35./d feladat megoldását! 


b./ Program: F342B 
19 REM -—-— karakterek vizsgálata—2Z ——— 
29 CLS:PRINT AT S,2, "Nyomj le egy billen 
tyuüt! "2 PRINT fi 
39 GET A£$ 
49 IF A$ZZ"O"7" AND A3-—-"9" THEN FRINT "sz 
ámjegy": STOP 
59 IF Aszz7"A" AND A£s-z"7Z" OR AZ5z"AT AND 
A$sz-z"O" THEN FRINT "magybetü": STOF 
69 IF A$5-"a" AND As€4—"z" OR As--"á" AND 
aAzcsz"ü" THEN PRINT "kisbetü":STOF 
79 PRINT "egyik sem" 


Bél. ,. 8 


3.4.5. Ciklus 
a./ 30 FOR I:LENCW$) TO 1 STEP -1 


b./ Program: F343B 

19 REM -—-—- a szó magánhangzói ——— 

29 DIM S334190 

38 CLSzINPUT PROMPT"TA szós":2:S$3$ 

49 FOR Izi TO LEN(S£) 

59 04-SZ(I) 

609 IF O04$-"7"a" OR 0£-"7á" OR 03-"7e" OR 03£-" 
é" OR €03-"7o" OR 0£-"7ó" OR 0iz-vTó" OR O3zz7ö" 

OR €£-"7ö" OR 0£z"7ö" OR Os$z"7u" OR 03-74" oO 
R 0£-—-"ü" OR 0£-"7ü" THEN S£$(I)—m—"e" 

79 NEXT 

82 FRINT S£ 


c./ Egyszerűbb számolni a magánhangzókat. Ezt ismerve már 
kiszámíthatjuk a mássalhangzók számát. 


d./ "Végtelenítjük" a számlálást. 


e./ A CHR$(B) kiírása a DEL billentyű lenyomásával egyenértékű. A 
DEL billentyű lenyomásának figyelése az  ORD(X$)-B reláció 
vizsoálatával történhet. 


3.5. Színek 


a./ 10 REM ——— szinek-—i.-—— 
29 GRAPHICS 16 
39 FOR I-9g TO 15 
35 IF I:8 THEN RESTORE 
409 READ SZ:IN3: 
45 IF I-Z8 THEN SZi:N$—-"sötét"2£SZINE 
47 IF 1-7 THEN SZ:NEsz"szürke" 
590 SET INK I 
69 PRINT AT I45,1,I;z;" — ";SZINt; 
72 NEXT 
89 GET:GRAFHICS 4 
109 REM —-—--—- szinek ——— 
139 DATA fekete, kék, vörös 
149 DATA bibor,zöld,cián, sárga 
159 DATA fehér 


b./ Az első két színt tudod használni. 


c./ SET BORDER - a keret színének, 
SET INK - a "ceruza! színének, 
SET PAPER  - a "papír" színének kiválasztása. 
SET PALETTE - a színek kijelölése. 
SET MODE - a színek keverése. (Ezzel az utasítással nem 


foglalkoztunk.) 


5. Melléklet 


5.1. Definiált karakterek 


la 


AGY 8xxAtSJONDURUHNEGN" 


32-ig: vezérlő karakterek 


168-tól: definiálható karakterek 


b 
o 
Ya/NNXKXKECCAVIDTOZZTAGHIONMUŰONUB 
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és 


9 ada Színek 
Sorszám 
B - fekete 
l - sötétkék 
2 - sötétvörös 
3 - sötétlila 
4 - sötétzöld 
5 - sötét kékeszöld 
6 - sötétsárga 
7 - szürke 
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B - fekete 
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- vörös 

- lila 

- zöld 

- kékeszöld 
- sárga 

- fehér 
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19 
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sat Baz 
5.3. Programok a Programcsomagból 
BASIC kulcsszavak - Program neve: KULCS 


A BASIC parancs és utasításszavak, függvénynevek, műveleti és 
relációjelek jelentésének tanulását segíti. 


Pontok koordinátái - Program neve: PONTOK 


A koordináta-rendszerben megjelenő pont koordinátáit kell 
megadni ill. a koordinátáival adott pontot kell megkeresni. 


Egyszerűsítés - Program neve: EGYSZERU 


A törtek egyszerűsítésének gyakorlása. Segítségül kérhető a 
számláló és a nevező primtényezős felbontása. 


Egyenletek grafikus megoldása - Program neve: EGYGRAF 


Input adatként megadható két - első ill. másodfokú - függvényt 
ábrázol, és megkeresi a metszéspontok abszcisszáját. 


Sorbarendezés - Program neve: SORREND 
A sorbarendezés algoritmusát szemlélteti 

" Névsor a magyar ábécé szerint - Program neve: MAGYAR 
Karakterláncok összehasonlítása az angol ábécé, azaz a 
karakterek kódszáma szerint történik. A hosszú magánhangzók 
kódja nem illeszkedik ebbe a kódszám-rendszerbe, ezért a magyar 
ábécé szerint a rendezést nehezebb megoldani. 

Négyszínű képernyő - Program neve: NEGYSZIN 


A négyszínű képernyő színezésére szolgáló utasítások tanítását 
segíti. 


Spirálok, görbék - Program neve: SPIRALOK 


A különböző spirálok, görbék bemutatásán kívűl, a menü rendszerű 
programszerkezet tanításához is felhasználható. 


Karakter nagyítás - Program neve: NAGYKAR 

A grafikus képernyőpontok vizsgálatával rajzolja ki a karaktert. 
Kikerülés - Program neve: UTKOZES 

Az "ütközéses" játék egyik egyszerű változata 
Számlétra - Program neve: SZAMLET 
Bombázás - Program neve: BOMBAZ 

A demonstrációs programcsomag játékprogramja tanítható formában. 
LY vagy J - Program neve: HELYES 

Közismert oktatóprogram "nyitott" változata. 
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